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I. HISTORY AND INTRODUCTION 

There are two tatcn processor air defense sSimuiatioa 
programs implemented at Naval Postgraduate Scaool. These 
Peegrams take a user-defined aircraft tlignt path, compare 
femmtO VYdariOus defensive positions and return the probability 
of having killed the aircraft. The tirst program is the Air 
Force Armament Laboratory's Anti-Aircraft Artillery (AAA) 
Simulaticn. Its shorthand name 1s PQ01. The second progran 
is the Air Force ASD surface-to-air missle (SAM) engagement 
Simulaticn. Its shorthand name 1s MICE II. The programs 
satisfy MIL-STD-2069 and are used in industry as a design 
ald. 

A drawback to these programs is the fact that the amount 
of input data submitted to the prograns is large and the 
format requirements are rigid. The process of direct surnis- 
Peneor Cata to the programs, is tnererore tine ccnsuning 
and tedious. Hunans are inefficient at performing tine 
consuming, tedius tasks and errors are a result. 

A first step improvement in the method of inputting data 
to P0011 cccured in 1678. A pre-processing program named P0017 
Input Processor, or PIP for short, was created. Like the 
Processors, BG (ee el lelalicie! 9 jepmtersjres vuln However, input 
requirements were reduced to just spatial coordinates of 
flightpath milestones, an initial speed, and control indica- 
memes tOr the type of output desired. 

fmeeenad LtS Shortcomings, too. Because or the batch 
implementation, the entire flightpath orf milestones had to 
be submitted as a unit. The user learned of violations of 
aircraft structural/performance Limitations and mission 
rules by experiencing failed runs. Corrections consisted of 


repeated tinkering witn the milestones until a successful 





meme rGed. A Lurther drawback to PIP 18S the reeculrement 
Bomeeioee iscer tO PLOt Che desired route, pick off hugercic 
a 


@eeae and tnen get the numeric data into F 


tr: O 
EX) 


The next generation laprovemeat was introduced at Naval 
Meetgnaduate School in 1982 by Ee. ie ke rae gcnas. 
Recognizing the inherent limitations of a batch processor, 
Johns converted PIP into an interactive program suitapdie for 
use on time shared ccaputer systems. In so dolny, he real- 


ized the foilowing benefits: 


1. The user could fe notified "inmediately" of a milestone 
Elieby that | violated prederined aircraft structural or 


performance limitations. 


2. The user could fe given the opportunity of making a 


correction refore proceeding. 


3. An interactive graphics capability could be introduced 
which eliminated the necessity or manually converting 


ane coding data from a map into the computer. 


As a secondary Smeolt, te ausportabiiity through modular 
programming was introduced to permit easy dissemination of 
the pre-processor to interested government agencies and 
industries. The version in use on tne Naval Postgraduate 
Pego@ol [EM 3033 computer 1s named IBMPI>?P. 

While acknowledging the importance of IBMPIP as a great 
evolutionary step forward in the convenient use of P0001 and 
MICE, it guickly became apparent that stilt more imnprove- 
ments could be realized, which would increase the conven- 
ience oz the data generating aspect, improve the accuracy of 
the results from P0001 and MICE and broaden the capabilities 
Seeene IsMPIP-POO1T/MICE combination in two areas: design 
decision making and tactics. The purpose of this thesis is 


to make some of those improvements. 





Bewenecco ‘aan rename iBMPIe2, this tsesis proposes an 
Mee veagsvetslon Of ibtPiP by installation of specific 
modules which are to te discussed. Poe hca may. s Ene 2nt co 


duction ci the new modules reguired extensive changes to tine¢ 
existing nodules. 

Before developing the discussion On tie wer OCvosed 
modules, it will be anstructive to examine the uSe or 
IBMPIP-POOI1/MICE at Naval Postgraduate School. This acts as 
a first step toward developing an overali pailosophy witzin 
feeek LUtULe modifications will f1t in a logical sequence. 

IBMPIP-POOI1/MICE is incorporated in a course titied 
MeeGratt Combat Survivabllity (AE 3251) and 1s used asa 
teaching aid in developing an understanding ort the factors 
affecting aircraft survivability in a hostile AAA and SA‘ 
environnent. In a game environment, Student teans "fly" a 
bombing mission against a target derended by seven AAA and 
one SAM locations. There are game restrictions on the loca- 
tion of scne of the defensive positions. There are also gane 
restrictions on the performance of the pseudo-aircraft. Each 
team iS responsible for generating one defensive and one 
offensive data file. When each team is satisfied with their 
parameters, the data files are exchanged in such a manner 
that each team's flight path is compared to the other tean's 
defense. Implicit in this method is the understanding that 
each team has no knowledge of what the incoming data files 
Will look like. The comparisons, then, approach arbitrari- 
ness. P001 and MICE act as the judge, in that the team with 
PiemLOwest probability of kill for their rlightpath is named 
winner. 

To ensure comparability of scores, the performance of 
the aircraft is fixed for the gane, although IBMPIP pres- 
ently has the capability of permitting performance and 
imm~it DLOLile Changes OF THE ONE aircraft described in it. 


irs 1s an important point to note. 
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What is left as variables at the dispos 
then, are defensive positioning an 

Pee, 2ues Lea ls the 
Pemeept Ci tactics as @ method of lowering probability of 
kill (Increasing chances of survival). This 2s good. that 
wouid be better would be for the student to reach the 
conclusicn that reduction of vulnerability and suscepti- 
meeey cClawS in the aircraft will lead to a probability of 
survival exceeding that which can be accomplisned by tactics 
alone. There are several modifications to IBMPIP that would 
peeomelish this goal. 

As stated earlier, P001 and MICE are used Ly industry to 
make design decisions. This fact leads to tne demand that 
the data onthe position of the aircraft be at least as 
accurate as the detect and track capability of the defensive 
Meveces ELOgrammed into P0071 and MICE. Such 1s not presently 
the case. The original version of IBMPIP uses an assuned 
quadratic flightpath between the current milestone and the 
two previous nilestcnes. The aircraft accelerations are 
computed at the center of these three milestones based on 
the velocity between the third and center milestones and the 
velocity between the center and current ailestones. If the 
accelerations at the center milestone are acceptakle, the 
current milestone is accerfted. PQ0Q01 and ice assune a 
Straight line between these milestones. Because the user is 
free to define milestones thousands of meters apart there 
can te a significant lateral error in the computed aircraft 
position at the mid-foints between the milestones. 

A last area to be discussed is tne output from P0011 and 
rane ie . Romeaooeme, lt 1s G@arraicult to obtain rapid correla- 
tion between the "aircraft" and where it is being subjected 
Pomattack. The output from Foth P0071 and MICE are in the 
form of long tables of time-space-attitude informaticn of 


the aircraft, probability of «ills for each defensive 
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device and the cumulative probability of kill based on the 


e* 


sum of all of tke defense. The user nust then grarch 
Mecca teon O- the “aircraft” at the time it is threa 
Of being damaged, todraw any conclusions on its suscepti- 
meeiey and to a lessor extent, 1ts survivability. 

By way of summary then, a sStatemant is made as to what 
would constiture an ideal IBMPIP-PO01/HICE inplezentation to 
satistry all tne above mentioned Saortralls. 
IEMPIP-POOI/MICE should be: 


*e interactive to fpermit feed back of pertinent operating 


information to the user 


* user friendly to diminisn the rejuirement for special- 


ized operating procedures and to avoid fatal errors 


® apprcacning real time in ability to compute and present 


results 


¢ graphics oriented to enhance the convenient generation 


@esinput data AND presentation of results 
e accurate to the extent of the systeus being nodelled 


* rlexible through incorporation of a selectanole range of 


different aircraft and defensive weapons 


e transportable, as accomplished through nodular progran- 


ming techniques 


In conclusion, two of the above points are addressed by 
this thesis and will ke discussed. They are incorporation 
of user friendliness and a more representative flightrpath. 
The most difficult task has been the convenient generation 


of an accurate, representative flight path. 


lz 





A generally accepted meaning of "user friendliness" is 
Bomeotructure a program in such a fasnion that the user 
Cannot "do" anything to cause an unplanned halt in execu- 
2 OW . fhe sinplist version of the above concept is to 
prevent the user f£rem entering data up0n which the preogran 
maeret Structured to act. The following example is taken 


Beem, the Original IBMPIP. 


50 WPITE (6,600) 
READ (5,*) IGUN 
600  FORMAT('GUNS: O=DISK FILE, 1= TERMINAL, 2=PRESZT') 


fees clear that the chnly correct responses are 0, 1, and 2. 
It is also clear tahat any integer number would satisfy the 
READ statement. To prevent unplanned events from taking 


meee in the program, the following change is nade: 


50 WRITE (6,600) 
READ (5,*) IGUN 
IF (IGUN.NE.O.AND.IGUN.NE.1. AND. IGUN.NE. 2) 
*GOTO 50 
600  FORMAT(' O=DISK FILE, 1=TERMINAL,2=PRESET") 


The user 1S now prevented from progressing beyond this point 
in the program until an acceptable input is made. The user 
is encouraged to try again by having the prompt message 


repeat on the screen. 


es 
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Cyerent version of IBMPIP, once a map 
successfully created on the graphics screen, a 
data is entered through a graphics buiter. The reascn £or 
this method is to allow the user to see a continuous trace 
(see figure 2.1) of the trajectory that will be submitted to 
MOpyvNiCE. However, if a game parameter or an aircrart lini- 
waewon iS violated, the program suspends execution and 


gueries the user for a selection of one of two options: 


1.Accept the data point, which violates a parameter or, 


Pepoiostitute a data point which does not. 


This can turn into an iterative process between the user and 
the progran. 

BeeeeiS @ Contention of this thesis that paraneter viola- 
tions wkich do not airect the overall outcome of the surviv- 
Eemeerty OL the "aircraft" snould be corrected autonatically 
mene computer. At mest, for these kind of errors, the user 
Should see an adviscry statement that does not reguirea 
response. The following example is offered in support (to 
improve readability, some of the variables are renamed to 
Simpler mnemonics). 

One of the game parameters that must be satisfied is 
Ome during the enroute portion of the “ftlight", the 
Naircraft" may not descend below 60 sm2eters altitude, as 
denoted by the variable HTMIN. Presented, then, is the orig- 


inal program flow for a violation of this parameter. 
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Continuous Flightpath Trace From Present IBMPIP. 


==>graphically input 21 
ALT=Z1 (where Z1 is the altitude in neters 
Cable Lt o0me ters) 
Matis GheHlann) proceed 
otherwise 
-EKROR=3 
GOON e, 3, ...) pERROR 
WRITE (6,603) 
POmrAt( ALIETUDE TOO LOW") 
Wikies (6,050) 
READ (5,*) ICOR 
HOw oO LeU Ash TO CORRECT ERROR, 


* 1=YES,2=NC) 


MIGEeOre eG. 1) GOTO 1 


a5 





Positional parameters such as this are easily violate: 
because the graphic setup constrains tne "aitimeter® te zou 
Meter increments and it is difficult to discern where 29 
meters falls. If the user violated tnis parameter, it was 
obviousiy with the intent to go as low as possible without 
violating the parameter. It would seen reasonable, then, to 


Beam. y the program in the foiiowing fashion: 


ALT=Z 1 
Hake. Goede) §=peEocee) 
otherwise 
ALT=HIMIN 
Wher Le (6, 100} 
100 Heres svrOLAG ES MINIUUA ALT RESTRICTION: 
Seve Pe onmeonnh eG lSs EXECUTION CONTINUES*) 


fiewrQliowing kind of Situation is particularly frus- 
trating, as there is no clue given to tne user as to what is 
tne problem. PiemomeaceienH cals Found Jin a passage Chat is 


reading in data from a pre-established disk file. 


308 Poet C. VoAND. LTRS eg. 63) STOP 


Bgms.EO.1 represents the first data point entered into the 
program. LTR is a control variable, and code 83 is that used 
to signify that "aircraft" milestone entry is complete. 
Unless the user happens to have access to tne pregran 
ese Lng, there is nothing to indicate tnat s/he is 
attempting to read ina flawed data set; yet selection of 
code 83 1s permitted onthe first data point entry when 
Setting up the disk file. 
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Stated atove are inccrporated into the improved versicn of 


IBMPIF. It is anticipated that as the scope or the users 


increases, more changes will become apparent. 
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III. SUMMARY OF COMMONALITY BETHSEN PROGEAMS 


ity 
jis 


Miemcunsent anda crhoposed methods of generating a fiigkt 


path share a common objective: 


Meeurately nodel the trajectory of a flight of a fixzec- 
Meme altrcraLt. Make the model realistic by subjecting the 
trajectory to the performance limitations of the rea 


pepecraft. 
Meewdaiccraft performance limitations for Eoth programs are: 


imeeacceleration alcng the longitudinal axis of the 
ae crart 
meeeacceléeration nermal to the longitudinal axis ({'g" 


loading) 
The forward acceleration is composed orf components fron: 


1. engine thrust 
2. aerodynamic drag 


Beeegravity 
The normal acceleraticn is composed of components from: 


eer i tt 
Zen abag 
Semegravity 
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Figure 3.1 Elements Comprising Forward and Normal Acceleration. 


Figure 3.1 illustrates the components making up forward and 
normal accelerations. There are ten parameters of the 
trajectory which must be determined for subseguent use by 
Peenmeand MICE. They are: 


1. spatial components (ai, 2) 

2. velocity components (Ug pow) 

3. attitudinal comronents (heading angle (WY), pitch angle 
Woy, and roll angie ( g)) 

4. elapsed time 


The overall method by which the components are generated in 


tae twce programs are the same; 


ag 





~ 


Pere ce COMPONENtES representing translation/rotatiorn 


Paotmenewimetes De lestone (xX,v¥,2 and velocity) to tne 
ies eaGbe GOMoweed In the edrta-fLixea (inertial) coordi- 
Boece SYScten. 

2. The accelerations resulting fron the displacement in 


the earth-fixed coordinate systems are transformed into 
the aircraft~-fixed (rotational) coordinate systen. 
3e Ihe thrust and g-liodaa on the aircrart are computed. 
Meee the thrust and g-loadinj all within predefined 
menets, the 10 Components are accented, written to file 
and tne program Lre-initialized to accept the user's 


next nilestone. 


Cne difference Eetween the current andthe proposed 
Program cccurs in the treatment or the conditions of over- 
emit and over~g-ioad. The current program halts the execu- 
tion and requests a user i1x to the milestone. The proposed 
program adjusts the rparaneters internally until thrust and 


g-limitations are met. 
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IV. SUMMARY OF CURRENT IBMPIP 


ne i corer ese pais eee ee oa ORE PEEP EEE) CE PREP “PAE SP Ep gee ee 


The current methcd is descripned below. Three milestones 


are used to compute average values or neading, Clic and 
velocity components of the middie milestone. she fiight 


5 


Path is always expressed as a straigrt line between two 
points. With this system, the invariabdles are the spatial 


Seeradinates of the Bilestones and the "“aircrart" speed at 


MS2(x.Y,2,V) 


MS3(X,Y,2.V) 


MS4(%,Y,2,Vv) 
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Figure 4.1 Invarients of the Current Trajectory. 


the waypoints. As the trace in figure 4.1 is generated, two 


tasks are accomplished: 
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Paomusemecgetsmd "feel" FOr where the aircraft is going 
on the map. 
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at the completion of a run of IBMPIP, will 


Momtne baton pregcrams POOl and/or MICE. 


The data required by P001 and MICz are presented pictoraily 


in the rcliowing figures. 


—_ —_ =— 


——_— —— 


ee 


| 


> 





Az 


Ax 


eS EE ES SS A aa A a A eT MR AR to, AE ba in Saige eS eee os 


Figure 4.2 Spatial Components. 
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Figure 4.3 


Velocity Components. 
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Figure 4.4 
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Angular Displacements. 





“ne method used to generate the above data will acy b 


(wD 


Beesented 1n the frollowine figures. To make viewing cconver- 
Meme, all diagrams wiil occupy the x-Y¥ plane witn the under- 
standing that the discussion applies ae che 


three-dimrensional case. 
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Figure 4.5 Computation of Spatial Components. 


DX 1=(X2-X1) DX2=(X 3-X2) 
DY¥1=(¥2-Y1) DY2=(Y 3-Y2) 
Mgi= (22-21) DZ2=(Z 3-22) 


DIST1=SORT (DX1**2+DY1* *24+DZ1** 2) 
DIST2=SQRT (DX2**2+DY2* *24+DZ2**2) 
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Figure 4.6 Computation of Average Velocity (Speed). 


VAVG1= (V2-71) /2 
VAVG2= (V3-V2) /2 


The elapsed time for the leg and total to the milestone are 
computed as follows: 


DI1I=DISTI/VAVG1 
DT2=DIST2Z/VAVG2 


T2=11+DT1 
T3=T2+DT2 
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Figure 4.7 Computation of Average Velocity Components. 


VX 1=VAVG1* (DX1/DIST1) VX2=VAVG2* (DX2/DIST2) 
VY 1=VAVG1* (DY1/DIST1) VY 2=VAVG2* (DY2/DIST2) 
VZ1=VAVG1* (9Z1/DIST1) VZ2=VAVG2* (DZ2/DIST2) 
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Figure 4.8 
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Computation of Average Acceleration Components. 


DELTAT= (13-71) /2 


AX1=(VX2-VX1) /DEITAT 
AY 1=(VY2-VY1) /DELTAT 
AZ1=(VZ2-VZ1) /DELTAT 


When at 
@aeattitude 
one (MS1) 
MectOLcs are 


scheme. 


Milestone two, the aircraft is presumed to have 
which is an averace of the attitude at milestone 
and the attitude at miiestone two (MS2). Unit 


generated at MS2 using tne following weighting 


2) 





ee 





I Le I pe SE elie imino ———— 


Figure 4.9 Components Required for Average Heading Vector. 


HDGAVG=DIST2/ (DIST1+DI ST2) 


TDX=((VX2/VAVG2)-(VX1/VAVG1) ) ¥HDGAVG+VX1/VAVG1 
TDY=((VY2/VAVG2)-(VY1/VAVG1) ) *EDGAVG+VY1/VAVG1 
TOZ=((VZ2/VAVG2)—(VZ1/VAVG1) ) *HDGAYG+VZ1/VAVG1 


The vectors are converted to direction cosines: 
UNIT T=SORT (TDX*¥* 24+TDY** 2+TDZ**2) 
TOXL=TIDX/UNIT 


TDY=TDY/UNIT 
TDZ=IDZ/UNIT 
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Rotational angles can now be defined: 


HDGSATAN(TD1/TD4) 


B= ATAN(TDZ/SORI (TDX** 2+ TDY**2) ) 


Memeication of the roll angle is temporarily deferred. 
Meemeaccelecrations in the earth-fixed coordirate systena aust 
MemmmeraisrOrmed to the rotational coordinate systea (see 


megure 4.10) below. 


AR NE | A li ET  , : Li’ <u 


| 


= TMD 


— \ CA 


| 
| oni 


Figure 4.10 Transformation of Acceleration Components. 


The coordinate transformations are given without development 
[Reft. 1] 
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- 


TMD= (cos(ape)*cos (ca) | fax ! 
4 SIN(HDG) *COS(CA) / AY1 
aren | | satecze | 

T 

PH= SIN (HDG) AX1 

COS {EDG) ta | 
Q \z1+cze | 
ns 

a= (cos (une) #814 (Cay AX 
SIN (HDG) ¥SIN(CA) a 

) COS(CA) NZeGie = 


feWaemececeelerdtion along the aircrart's longitu- 
dinal axis 

PH= acceleration 1n the direction oz the 
Qieerart. Ss Plcht wing 

PP= acceleration in the direction or the top of 
Enea ECT al ¢ 

GEE=acceleration due to the earth's gravity (9.82 
m/S2) 


The roil angle or tke aircraft with respect to the earth- 


mmeecd CcCOcrdinate system is written: 


RA=-ATAN(PH/PP) 


MmemerOotal aircraft lift is the vector sum of the accelera- 
tions normal to forward translation and is normal to the 
Gori angle: 


ACLIFT=SORT (PH *#2+DP** 2) 
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Meee ET crwaLac chanSlation acceieration and the iitt or 
mMornal acceleration are non-cdirensionali 


tern: 


TM4D1I=TMD/GEE 


Beet rtI=ACLIFi/GeeE 


Mm@emacrove iS based upon the concept of ‘force divided by 


weight: 
THRUST/WEIGHT = m(TMD) /mg = THD/GES = TMD1 


Now aerodynamic drag on the airframe must be accounted 
for. Drag is computed using conventional aerodynamic equa- 
tions. SOlewedelOnecnny alr AGenSity aS a Eunction of alti- 
tude: 


Pea —. 2560* EXP(-. 103 *2Z2/7 1000) 


Z2= absolute altitude of milestone 2 in meters 


cals equation 1s in the non-standard dimensions 
Magee sec7/rt2-meter2) and is therefore unacceptable. It will 


be supplanted in the following chapter. 


Bemeautation of the coefficient of lift 


m= 2 ACLIFT/(RHCFV2**2 /NL) 


HL= wing leading in lbf/rtt2 


Computation of drag (non-dimensional): 
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Pee e loefeC lp A~Ci*2/CL; =ACLIrF 


+] 


ae eenro angle “ofr attacx 


KQ 


Gie= Goct reverent of dra 


COR*CL#*2Z= drag due to 11it 


Net longitudinal acceleration factor: 


y= IMD+DW 


4 
a 


Speed brakes are accounted for by adding a surface area 


factor to the drag eguation: 


DW (s-b.)=((0. 05 +CDO+CD K*#CL*®*2) /CL) *ACLIFT 


Oe05= 5% of tne wing surface area 


The limiting parameters are then: 


te LW 
EeeaAC LIFT 





Ae 


OVERVIEW 


fre proposed trajectory modules were written to satisf; 


e@e iciilowing goals: 


iii. 


Retain user friendliness features. This is defined in 
mae COllowing Iashion; once a user enters a waypoint 
(we are here renaming milestones) through the graphics, 
fmmmecompurer Should £2 a flight path to that waypoint 
without any further action on the part of tae user. 
Interpret this to mean the user cannot enter a fatal 


waypoint. 


The trajectory snould closely match an actual 
aircraft's in sfatial coordinates, linear velocities, 
and attitudinal rotations rfrom the inertial coordinate 


Ssysten. 


Observe figure 5.1 for a comparison between the two systems. 


Under the proposed system the foilowing gross events 


take place: 


ite 


Tke aircraft is defined at a beginning waypoint which 


is named "old". 
The user enters a next-waypoint, defined as "new", 


Linear acceleration components are computed from "old" 


to "new", 


Using the accelerations and an invarient increment of 
time, tne aircraft is moved from “old” to a new foint 
defined as "temr". 


a3 








Feguire 5. | Comparison of Schemes. 


Knowing the displacement vectors that got us to “temp", 


velocity components at "temp" are computed. 


P@ouing the displacement vectors that got us to "tenre", 


angular displacements are computed 


Knowing the time increment, rotational velocities are 
computed. 
The linear AND rotational accelerations at "temp" are 


transformaed intc aircrafit-fixed coordinartes. 


The transformed accelerations are fed into the left 


mead side (LHS) of the Aircraft Eqguations of Motion. 
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MOmeate thrust and g-load linitaatons aren 
= 


a ° 
Weenp"” pecomes an accepted point, the parameters are 


ct 
ct 


u an. ceil Pe ~ * = 7 a ~ or ~ 3 54 4. 
ce OO Ee Teo eadeed oY One Eta Lage 
Sad 


s 


Ry 
a 


Bezt and “tenp" becomes new "oid". 
iieeerthe process is repeated until "old" becomes "new", 
12. Tee user is queried for the next waypoint. 
The new features are: 


1. The computer flight path is now a discretized version 


of an actual flightpath and hence is more realistic 


mogel. 
2- Rotational accelerations are accounted for. They are 
not accounted for in the present progran. Thus, the 


M@eesent aircraft performance 1S artificially better 
than the performance of the real aircrart being 
meageled, Survivability data is too optiaistic. 


Tnnposed on the above eventS iS an iteration that does two 
e 


i 


things: 


1. If accelerations resulting from the user input lead to 
Bawrecrart" thrust and g-loadings less than the naxinun 
defined, tne accelerations are increased until thrust 


or g-loading hitS maximun (whichever occurs first). 


Memeo thrust or g-lcading are too great, either the user 
mmeut velocity is adjusted downward or the "new" 
wayroirt is moved ina straigat line away from the 
Bold" waypoint, until tarust AND g-load fall within 
imitations. 

Number one was included under the philosopny that a filot 
Seed aN aircraft which is being shot at will not be flying 
at less than the mraximun availabie. A drawback to the 


current system is the user has no way of knowing (except by 
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Peeeecding limitations) Petnes the a@ircraft 235 at aexi 


BericrMance or not. Number two was included in keeping 


Mme desire to medel the real aixcraft as ciocseivy as 
possible. The hierarchy is based upon infornal interviews 
meen attack pilots attending NPS. 


fhe rest o£ the Chapter contains a detailéd exahination 


of the subroutines and an explanation of the variables 


Bebated to flightpath generation. Ail equations in the exan- 


lnations 
subsequent 
IBMPIP. 


are either 


The final Chapter summarizes 


Chapter 


the proposed IBMPIP. 


Gimensionless or 


Be BIGCAL LEVEL SUBRCUTINES 


ie SLGCAL 


ae 
b. 


expanded name: 


PaMction: 
the 


subroutines 


generaticn. 


reviews the 


Bate ari: 


PeGmecdlpmadcts aS asdrbiver for the rest of 


eguations/calls: 


10 


Ca 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CaAaLl 
CALL 
CALL 
CALL 
CALL 


DN ae 
NEWOLD 
WVELOS 
MVDOTS 
DELVEC 
Mee TY 
pea VEE a 
ENE TRS 
VECTOR 
ANGLES 
ROLRAT 
AGrray 1 
Ae DMZ 


involved 
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remaining 


with 


Sy. Units. 


Fla ght 


The 


subroutines of 


Boe eCUrrent Status OL 


trajectory 





Sie 


ALL ACTRM3 

CAI ACRVSL 
ceo Cc 

erne ut. S 
LL XCHNGE 
Li WAYPENT 
iene 
L GRAFIX 


comments: The two advantages in this approach are 
Poeweabplitty to treat ail the flight trajectory 
subroutines as a single package and having this 
package accessed by a single call from the wnain 


eae gsan Of IEMPIP. 


man ERM 


ae 
b. 


expanded name: Transform 

function: Transform takes the user defined values 
Which are acquired from the graphics burfer and 
Rime tmelicomvaLialvles peculiar to the alrccatt 
trajectory package. 


ecuations/calis: 


XNEW= X1 
YNEW= Y1 
ZNEW= 21 
VELCN=V1 


comments: The above is done to permit “in-house! 
Fanipulation or the waypoint values Witnout 
affecting the non-BIGCAL subroutines found elsewhere 
in IBHPIP. Note that in effect, this is the defini- 


maroon Or waypoint "new" for the trajectory package. 


NewCLD 


Sai; 





expanded name: irom Old to New 


Puretron- selne Generation Of Shorter variable hanes 


for the convenience or the prograamer. 


AGIT=XNEW-X OLD 

AH1=YNEW-Y OLD 

ALI=ZNEW-ZOL 
AJ1=SQRT(AG1**2+AH 1**2 +AI 1** 2) 
AJ2=SQRT(AG1*¥*24A41**2) 





Figure 5.2 Establishment of Move Vectors. 





Geecomments: ~Sce figure 5.2. Note that AJ2 1s the 
Shadow of AJ1l on the x-yv plane. 
Peo vELOS 
Peet panaea Games Map Coorcinate Velocity Components 
bk. function: Generates orthogonal velocity components 
for the user suppiied speed at waypoint "new". 


c. equations/calls: 


Ta neGieoy GOTO 10 
UNEW= VELON* (AG1/Ad 1) 
VNEW= VELON* (AH1/AJ1) 
WNEW=VELON* (AI1/AJ1) 
10 CONTINUE 
N=1 


d. comments: The components are based upon the direc- 
mor CcOsiness cron "old" to “new”. As the “aircrart" 
moves fron "OLGwe to. “new' in the subsecuent 
programs, the direction cosines can change, some- 
times drastically. Taose Changes are taking flace 
PaPonemeteouPNOoLrdmy Path wach as “Euzzy" at first. It 
Pd tareeOumntne DLOGLam LOr this "fLuzZiness" to be 
allowed to ainrtluence the endpoint velocity comfpo- 
nents (located at "new"'). Therefore, the computation 
of the velocity components is restricted to one 
iteration between any given "old" and "new"'. There 
acre some well defined exceptions will be discussed 
downstream. 

Sev DCIS 

a. expanded name: Map Coordinate Velocity-Cot 
Components 

b. function: Establish the linear accelerations between 
meypOorns "Old" and “new. 


Ce. equations/calls: 
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ACC=(VELON **#2-VELOO**2) /(2*AJ1) 
UDO T=ACC*(AG1/A91) 
VDOT=ACC* (AH1/401) 


2 Ae 


WOOT=saACTCt (ALT/AT4) 


d. comments: Again the components are based upon the 


direction cosines. The derivation of the eguaticn 
ACC=(VELCN**2- VELOO*¥*2) / (2*Ad 1) 


Pomolven if appendix 8. 
DEL VEC 


a. expanded name: Delta Vectors 


Meerunction: Cecmpute the components of a ds vector in 
Bae tabdLTon Ck a Move Of the “ailrcrafit" from “old 
poud Location ‘temp. "Temp" is a point along a 
curvilinear trace with the defined endpoints "old" 


and "new". Establishment of the points "temp" define 


the curvilinear trace. 


Cc. eguations/calls: 


DELX=UOLD* DELTEE+. 5*UDOT*DELTEE**2 
DELY=VOLD* DELTEE+. 5* VDOT* DELTEE** 2 
DELZ=W"OLD* DELTEE+. 5*WDOT* DELTEE**2 
GEGAESU DEL We Gl. ABSI(AG1)) DELX=AG1 
IF (ABS (DELY).GT.Aa3S(AH1)) DELY=AH1 
IF (ABS (DELZ).GT.ABS(A11)) DZLZ=AI1 


d. ccmments: The equations 


Peo VOL DSL EE Oo UDOLAD ELI ER* *2 
DELY=VOLD*DELT EE+.5*VDOT*DELTEE**2 
DE MNOreaprpel Ent. os WDOl *DELIEES*2 
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are conventional dynamic equations and are derived 
mio pends x E. iiiemee memories. YS an ianverrant 
PieGmeneni Or tlMme anG 1S Set Lor the progiam. ‘the 
Sis GcChemeyadive 15 "one Seconi and is Set in ELOCK 


pene GE auS [Or a Elme Increment o£ one second, tne 


ee ee ee) 





Figure 5.3 Delta Vectors to the Temporary Point. 


aircraft 1S moved forward fron “old" toward “new by 
Pel eanoOuntS sip the three orthogonal directions, 
utilizing the velocities and acceleratiors just 


computed. See figure 5.3. The logic statements 


IF (ABS (DELX)-GTI.ABS(AG1)) DELX=AG1 
IF (ABS (DELY).GT.ABS (AH1)) DELY=AH1 
LF (ABS (DELZ)-G1I.ABS (AI1)) DELZ=AI1 
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YT. 


8. 


feat rnnemestt lation where the "aircrart" is 
Mijeeectent iy Cicose to "new" that the acncutt of 
translation coverei in one second 1S greater than 
that necdéad to exactiy arrive £ 'oow" bene 2 
overshoot). 
PIF ENT 
a. expanded name: Temporary ?0int 
Pecan ction: Define in Map Cocrdinates the location of 
ene voLlnt “Gem. 
Se EqCuations/calls: 
XTEMP=XOLD +DELX 
YTEMPH=YOLD+DELY 
ZTEMP=ZOLD+DzELZ 
ie eieerOsAG 4) XTSuUP=XNEW 
IF(DELY.2Q.AH1) YTEMP=INE 
MECDELZ. SOeAL I) ZLEMP=ZNEX 
d. comments: The first three equations 
Meour=XCLD+DELX 
YPEMP=YCLID+DELY 
@LEMP=ZCLD+DELZ 
are self-explanatory. The group of logic statements 
Prawn bkerOoAGl) KIEMP=XH EW 
ME OEE h Chil ley TEMPE YNEW 
PEC DELZ.EQsALI) ZIEMP=ZN ow 
are in keeping with the need for exact arrival at 
"new!. 
LMPVEL 


a. expanded name: Temporary Point Velocity Components 
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a. 


function: Generate velocity components for the <soint 


Mteap"*. 


0 


mC ij 
— Sak 


Suaerons/calis: 


UTEMP=UOLD +UDOT*DELTEZ 
VTEMP=VOLD+VDOT*DELTES 
WLEMP=SWOLD+WDOT*DELTEZE 
IF (DELX-EQ-AG1) UTEMP=UNEW 
IF (DELY.=Q.AH1) VTEM 
IF(DELZ-EQ-AI1) wIEM 
VELOT=SQRT (UTEMP#* 2+ VTEMP ¥*2+HTEMP**2) 


comments: The below equations 


Giver = Velo UyO Te QeELTE 
VTEOP=VCIDtVOOT*DELTE 
ATOMPH=WCLIDtNDOT*DELTE 
VELOP=s OR? (ULE Me se2+VT EN PEs ZU TEMP * ¥ 2) 


ty 


(2) 


ty 


acre conventional dynamic equations and are derived 
in appendix E. The three logic statements 

IF (DELX.EQ.AG1) UTEMP=UNEW 

PPS(DEL Ys EOsnn 1) )VIEMP=VN EW 

i (DE Loo EO. at)) WIEN P= —NEW 


again deal with tae exact arrival at “new". 


pee INRTRM 


ae 
be 


pavanded GHame- initial Rotational Transformation 

function: Convert velocities and accelerations which 
are defined in terms of map coordinate (y points 
Hegen, X POlNtS EdSt, and Zz points “up") components 
to a coordinate system which sees conventional use 
Pyeeaemciaremdestgners {y points South, x pcints 
East, and Z points "down" toward the earth). See 


aepend1x C. 
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ar) 


eeeqctlations/cails: 

Ji= OUTEMP 

Va = een 

WY=-NTEME 

UD1= UDOT 

VD1=-VDOT 

#D1T=-WDOT 
d. ccmments: None. 
ANGLES 
a. expanded nanes Angle Change Increments 
b. function: Compute the angles resulting from the 

iiteniaLt’ Saameve <rom "old" to “temp". 

Cc. equations/calls: 


DS= SQRT (DELX**2+DELY**2+D=ELZ**2) 
Pa(WeLkeNe.0.) GOTO 10 
PED Lk oS OL jeaND.DELY.LT. 0.) 


* PSINEW=AA1 
Gere cie10 sehen. DELY.GT. 0.) 
* PSINEW=-AA1 
GOro 20 
10 CONTINUE 


PSINEW=-A TAN (DELY/D=LX) 
PED ou GUNO MAND bal. s0.0.) PSINEV=0- 
ia Meeps saANDaADELY. LT. 0.) 

*  PSINEW=AB1+PSINEW 
DDE we Toon sAND.DELY.£0.0.) PSINEW=AB1 
LEibob ket TOC AND.DELY.GT.0.) 

* PSINEW=PSINEW-AB1 

20 CONTINUE 

THENEW=ASIN(DELZ/DS) 


ws 





ce 


TRNRAT=(PSINE-PSIOLD) /DELTEE 
IF (ESINEY.GT.0.) PHINER= 
B 


TAN (ABS (TENRAT*VELOT/S. 7958) } 
EP (PSN. LT.9.) PHINZE= 
* —ATAN (ABS (TRNRAT*VELOT/9.79 58) ) 
IF (PSINEW.EQ.PSIOLD) PHINEW=PHIOLD 


~ 


Serie vese ne dprecohatu has a2 pParticuirarc attitude at 

the derined lecation "oid". The movement to "temp" 

Eepresents a “turn toward "new". The angles are 
reguired for two reasons: tne fact that the vuln- 
Suadore dbed)| Of the aircrazt is a function of the 
agPeCCaALt*S attitude with respect to damage propoga- 
PoEsedanad the ~toetation of the aircraft in the turn 
generates additional accelerations whicn superpose 
on the linear ones just determined. These rota- 
tional accelerations must be accourted for when 
analysing the loads imposed on the aircraft.The 


variables 


AA1=1.5708 radians (90 degrees) 
AB1=3.1416 radians (130 degrees) 


represent recurring guadrant angles.The equations 


IF (DELX.NE.0.) GOTO 10 
Pun se ORORVANDSDELY.LT. 0.) 


x PSIN EWV=AA1 
ime k ee One AnD .« DELY.GT. 0.) 
x PSINEW=-AATl 
GOTO 20 
10 CONTINUE 


PSINEW=-A TAN (DELY/DELX) 
Hine aleots O.eAND.DELY. 20.0.) PSINEW=0. 
DE) hes. ANd. DELY.LT. 0.) 

* PSINEW=AB1+PSINZA 
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IF (DELX.LT.0..AND.DELY.£Q.0.) PSINEW=A51 
Isbell et Ose nD. DELY.GT.0.) 
*  PSINEW=DSINEW-A21 


determine tne turn angle PSINEW. The turn angle 


{or heading change) is referenced from the positive 


PSINEW(-) 


PSINEW (+) x 


tH 


Y —__—— 
| 
| 


a 


Figure 5.4 Sense for Horizontal Turns. 


X-axlS, is measured in radians, and nay be eitner 
positive or negative. Positive is defined as a 
CLOCKWISE rotation. This sense is specified to 
insure compatibility with upcoming transformation 


Matrices. See figure 5.4. The equation 


THENEW=ASIN (DELZ/DS) 
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defines anangle THENEW (thetanew) Wieem us oa 
ad 


cia i f . Fy co —_— . . - ‘ ’ -. PS —e ~ o ’ ¢ 
wae Cee eee eS 6 Cit CnR aOVveE = =6OF 6ULelot 


fp ier De a ce ES A EE NE AS - ce N -Meteare 


THENEW (+) 


| 

THENEW C) 
oe 

| 

| 

ee 


Boegure 5.5 Sense for Pitch Above/Below the Horizon. 


} 
Uae ee een te ee eee — 


the horizontal plane (ne@paay 72 oy a) Positive is 
defined as nose above the horizon. THENEW is meas- 
Mrca Lairadians., See figure 5.5. The roll angle 
PHINEN defines how mucn the right hand wing of the 
Wderenait 1s Gotdated above or below the horizon. 
PiveNe woes a £UNCtion of PSENEW and is related 


through the turn rate of tne aircraft. The equation 


TRNRAT= (PSINEW-PSIOLD) /DELTEE 
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Rid « 


ii2 


defines turn rate as the heading change tnat tcox 


Picco moommgeaeon. Ola" £5 “temp over the senior 


Dee cee the tactoe 9.7956 that appears in euuaticns 


MatesiNed .Gl.0.). PHINEA= 

*  ATAN(ABS(TRNRAT¥*VELOT/S9. 7953) ) 
IF (PSINEW .L1.0.) PHINEW= 

*  -ATAN {ABS (TRNRAT* VELOT/9.79538) ) 


is derived in apvendix 3. Tne logic statement 
LF (2SINEW.EQ.PSIOLD) PHINEW=2HIOLD 


accounts for constant heading. fees Mw ei Cen “10 
this fashion to smooth the roli angie and theretcre 
HOLL tate throtigh the “new’ waypoint. This will be 
Clarified in the comments on the next subroutine. 

ROTRAT 

a. expanded name: Rotational kates 

Mee ctUDnCtiOn; Compute the ortnogonal rotational rates 
iat OGGclirred aS a@ Lesult of the move Erom “ola” to 
eenp*?. 


Baeqvations/calls: 


Peco r—(P SiN sh=PSLOLD) /DELT SE 
Peover ( LHaNew=tneOLD) /DsLick 
MHiosOl—(ehINEW=PalOLD) /DELTEE 


d. comments: See figure 5.6 for rotation sense. 

me IRM 

a. expanded name: Aircraft Transformation Matrix #1 

B. function; MTransform the velocity and acceleration 
components referenced to the earth-fixed cocrdinate 
System (x peincing East and Zz pointing down) into 


components referenced to coordinate system with x 
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PHI ODOT 





PSLOOT 


Figure 5.6 Definition of Positive Rotations. 


Belitamg aleng the nose of the aircrait (but still 
iMimtne hoOGbigentar plane) and Zz pointing down. 


C. equations/calls: 


ANG=PSINEW 

U2= COS(ANG) *U1+SIN (ANG) *V1 
V2=-SIN(ANG) *U1+COS (ANG) ¥*V1 
W2=W1 

UD2= COS (ANG) *UD1+SIN (ANG) *VD1 
VD2=-SIN (ANG) *UD1+#COS (ANG) *7D1 
WD2="D1 
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ab 
dus 
e 


14. 


G@. comments: See appendix C for a development of all 
Meee teats iontets On TRatrices, ACTRM1, ACTRM2, ani 
MeeVee sores Lement LOE the Aatrices stems from 
the requirement to transform the eartn-iicged coor- 
dindate system velocity ard acceleration corponents 
MibOndtEcre dtr rlxocUneoccrainato Yebocity and accel- 
eratlon cCompenents. Because the rotations being 
dealt with are discrete rather than Gifxcerential, 
PMucmornagecheOntne tEradanStormationh matrices is fixed. 
Mies) 2S aise demonstrated in appendix Cc. 

me LTRM2Z 

a. expanded name: Aircraft Transformation Matrix #2 

Bee functions Carry out the second transformation 
whereby the x-axis 1S rotated up/down out of the 
Morlzgottaie Tlane to Go through the nose of the 
Pilecrat t. 

Se equations/calls: 

ANG=THENEW 

U3=COS (ANG) *U2-SIN (ANG) *W2 
V3=V2 

W3=SIN (ANG) *U2+COS (ANG) *W2 
UD3=COS(ANG) *UD2-SIN (ANG) *WD2 
VD3=VD2 

WD3=SIN (ANG) *UD24+COS (ANG) *WD2 

d. comments:See appendix C. 

ACIRM 3 

a. expanded name: Aircraft Transformation Matrix #3 

Hee £Lunction: Carey Out the third transformation 
MIcEChyetic sy=dX1S 1S rotated up/down out of the 
horizontal plane to go througao the right wing (as 
referenced from the cockpit). 

Ce eguations/calis: 
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iD 


C 
C= COS (ANG) *V3+SIN (ANS) ¥93 
YAC=-SIN { ANG) *V3*COS (ANG) #93 

Ue Pye —U 53 

VDOTAC= COS(ANG) *VD3+SIN (ANG) *WD3 
HDCTAC=-SIN (ANG) *VD3+COS (ANG) *WD3 


d. ccmments: See appendix C. 

Pe RVEL 

a. expanded name; Aircraft Rotational Velocities 

Be cunction: Ccnvert (transform) the rotational veloci- 
ties from the earth-fixed coordinate system to the 
aircraft~fixed coordinate systen. 


ce. equatlons/calis: 


ANGI=THEN EW 

ANG2=PHIN EX 

P=PHIDOT- SIN (ANG1) *PSIDOT 
O- GOs (AN GZ) ta sDoOT 


s COS (ANG1) *SIN(ANG2) *PSIDOT 
R=-SIN(ANG2) *THEDOT 
« COS (ANG1) *COS(ANG2) *PSIDOT 


d. comments: See figure 5.7 for sense. See appendix C 
Pome Cr ivat lon. 

ACACC 

a. expanded name: Aircraft Accelerations 

Peeecunection; Sum up the linear and rotational acceler- 
ations imposed on the aircraft. 


Cc. equations/calls: 
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ay 


Re 


Figure 5.7 Aircraft Rotational Velocities. 


AX=UDOTAC-VAC*¥RtWAC*Q 
oa OOTAGhUAC=R=a AC *P 
AZ=WDOTAC ~-UAC¥QFVAC¥P 


comments: Ncne. 


Me ACINIS 


ae 
1D « 


expanded name: Aircraft Limitations 

function: This is the key subroutine of the trajec- 
Bony we packages ff Calis fOr cOmputation of the 
forces imposed on the aircraft and compares the 
rorces to allowable values. If the forces are too 
Great, it initiates a seiective reduction in the 


e€arth-fixed acceleration components until the 


ae 





18. 


Ce 


nemeee On thesdirchate fall within Limitaticns. if 
tne forces are less than allowarcle values it initi- 
ates a selective increase in earth-fixed acctelera-~ 
MECC oONUONeHtsm UMETL the PaXlMUh AalLiowercie ah 
reached. 


eqguations/callis: 


Ceri Ga USL 


PP{aN, Lis ANAAX. AD. FRHDACC.LI.INMAA) 


= CatircQ0sik 
IF(AN.GT.ANMHAX.OR.FWDACC. GT. THAA XK) 
* CALL FEDUCR 


ad. comments: Ncne. 

XCHNGE 

a. expanded name: exchange 

Meerunerldon; Cnee the performance of the aircraft has 
been maximized at the point "teap", "temp" becones 
accepted as a point along the trace toward waypoint 
"new. "Old" is noved up to “temnp". | 

ee eu vatlons/calls: 


XOLD=XTEMP 
eee =y TeaeP 
LOLIVEZTIEMP 
VOLE=UTENP 
VOLD=VIEMP 
WOLL=WTESMP 
PSICLD=PSINEW 
TAH eCop=THENE A 
PHICLD=PHINEW 
VeLCO=VELOT 


a3 





| 


A> 


20. 


aeeecommMents: This 15, in erltect, the novement crware 
Pao are raqart™ to )"™tenp", che next incrersetec 
toward waypoint "new", 

| ee 

a. expanded name: Waypoint 

De Lunction: Load the accepted vaiues into vectors for 

ec eclsoecwmere in the non-SIGCAL portion of I3HFIP. 


@e equations/calls: 


e(zeL) x euD 

WY (ICT) =Y OLD 

WZ (ICT)=Z OLD 
Uae = wee) 

WV (ICT) =VOLD 

WW (ICT) =WOLD 

WH (ICT) =- PSINEW 
W2 (ICT)= THENEW 
WR (ICT) =— PHINEN 
WG (ICT) =AN 

T (ICT) =T(ICT-1) +DELT2E 


d. comments: The MminuS Signs apvear in Wd (ICT)= and 
Meateetjy—= tO paCCOURt LOE transformation back into 
the original map coordinate system which has 2z 
Pott) i pi 

ee Ls 

a. expanded name: Write to file 

me Lunction: Immediately write all tne appropriate 
information to disk file for [future use 


Ce egquations/calls: 


ACU Deatee Nowe Ona tOLO. Ne. YNEW. ORS ZCLO.NE. ZNEW) 
= GOTC 10 
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4 


Ponae TOOT (rel) ,#x (ICT), WY (ICT) ,¥Z (ICT), 


x emer ea CT) | TEC™) , 
# Po Sely edi CT) OAS (ae F , 
x WG (1 CT) ,iL12 
RETURN 
10 CO crew e 
LT R=0 
eee OO) @ ChCT) OW CYECT) CH (ICT) ,HZ{ICT) , 
* Horne.) ANY Eel eta (ICT) , 
* Deneve (Ler) STC TL), 
* WG (ICT) ,LTR& 


100 FORMAT(11(F10.2,1X),I3) 


d. comments: The if statement is the current method of 
Embrcakingwout™ of BIGCAL when the program arrives 
at the waypcint "new". HOw UG eaecacinge ssc data 
Mmiees the Geuerol Varlarle LTR is set to zero for 
Pei Mmene el ieenin DOlitS Orethe curve. LTR is a noti- 
Pication by the user of arrival at certain xe7 
points in the game scenario and are described else- 
where. 

ie GRAFIX 

a. expanded name: Graphics suproutine 

feecunetion; Use the WK(ICNT) and w&Y(ICNT) vector 
values to plot the trace or the flightpath on the 
graphics screen. 


c. egquations/calls: 


PX 1=WX (IC T-1) 

PY 1=WY (ICT-1) 

PX2=WX (LCT) 

PY 2=WY (ICT) 

ever I(EN x Marx, 13000.,12000.,0} 
uel GEV leT (Osx 1, PY 1) 


SD 





GraeGuy ECT (1.,2X%2,P 12) 
CAtieGorn Cs 


d. coaments: The equaticas 


PXT=WX (ICT-1) 
PY1=WY¥ (ICT=1) 
PX2=WX (ICT) 
PY2=WY (ICT) 


establish the Leginning anc end points of the draw. 


The call to the subroutine WIN (window) 
CEL wh (ieee MAXX, 16000., 12000. ,0) 


reaches into non-BIGCAL IBMPIP. FOE nere it is 
Simply described as a deriner of the portion of the 
graphics screen on whick tne drawing is to take 


place. The calls 


EniG Genet (0. ,P%1,Pv1) 
OND EEGs VECT (1.9, PX 2, PY2) 


are calls te the graphics package GRAF 77, the IBa 
SLavpinesspdekage at Naval Postgraduate Schocl. 
GBVECT passing a (0.) interprets as "Move to the 
rollowing coordinates.". Seset passing ~a ~(1.) 
interprets as "Draw to the following coordinates". 
The final call 


CALL GSsrnce 


forces the actual updating of the graphics screen 


With the move and draw just called for. 
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See lo2kRD LAYER SUBRCUTINES 
fhe roliowing Suoroutines are accessed tarougs diveal. 
Meeec Ooveraiz function iS to compute the forces oa tue 


Meummeecractt™ based on the accelerations in the "ail 


ry 


Gi aie an 
coordinate system. Cnce the forces are estacrlished, a focth 
level surroutine, which will be included nere tor conti- 
nuity, xre-drives the higher level subroutines to iterate 
Meeeinateciy) the forces to Witnin iia@itations. 
fee thn UST 
geeeexpanded name: Thrust and g-load 


eee runction: Establisn the forward acceleration an 


4 


S 
ou 


g~lcad on the airframe. 


ee eg vations/calls: 


ANG=THENEN 

THR GD=AX/G EZ 
AN=SCRT (AY ®*2+AZ**2) /GZE 
SIGMA=(1+D TIH*ZTEAP/TO) **4.257 
RHO ALT=RHO SSL¥SIGMA 

CL= (2. *AN* WL) / (RHOALT*VELOT* *2) 
DRAG=AN*((CDO+CDK*CL**2) /CL) 
Fi] DACC=SIN (ANG) +THROD+DRAG 


d. ccmments: The eguation 
ANG=THENEW 
establishes the "aircraft's" attitude above or Lelow 
the horizon and is necessary for computing the 


SPrecuLOn nrougnewhich gravity forces act upon the 


Nairccart". The following equations respectively 


PAR ORP=AAK/GEE 
AN=SQRT (AY**2+AZ**2) /SEE 


2) 





compute the longitudinal non-dinensionalized 


@eceleratLon cased or the user's desired Tove uae 
the composite Pome OLMiensSioial: zed gee Cees eo. 
Mimi meneame so <hne Loncitiudinal ayis. Mee eee 


equation 
SIGMA= (14DTDH* ZTEMP/TO) **4.257 


omenew density patio (altitude to sea-level) anc is 
a functicn cf standard temperature lapse rate and 
meererCes) Lt 1S d@rived is appendix 3. “The density 


at altitude is thea 
RHOALT=RFHOSSL* SIGHA 


the density at sea-level times the given ratio. fhe 
density, velocity, aon-dimensional g-load and wing 


Heading (round in BLOCK DATA) are 
CL= (2.* AN*WL) / (RHOALT* VELOT**2) 


Miele Om onomeqialmen LOr GOCELICient of: Litt. Drag 


Homa £UPCtClON Of the Coefficient and is given as: 
DRAG=AN*((CDO+ CDK*CL**2) /CL) 


The components gravity, forward acceleration 


(cecuired) and the 
FR DACC=SIN (ANG) tTHxQD+Da AG 


Mesulting dhag on the airirane are summed to jive 
mee tOtal Ecrward acceleration on the "aircraft". 


(The acceleration will be negative if user "slews 


down". ) 
Bee EOOSTR 
a. expanded rane: Performance booster 
Meeunction: increase the "aircraft" performance up to 


the allowable maximum thrust or g-load, whichever is 


Snaller. 
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Geuec Uations/calls: 


CK 


ris 


10 

x 
20 

te 
EG 

te 
40 

* 


4CONT=4 
CONTINUE 
I=0 
LF (AG1.EQ. DELX-OR-.AG1.590.0.) GOTO 10 
TF (ABS (861) -L@- ASS (AH1) -AND. ABS (AG1).Li- 
ABS{AI1)) I=1 
Taio cet 1G 
UDOT=1.02*UDCT 
CONTINUE 
EF (AH1.E0. DELY.OR.AH1.£9.0.) GOTO 20 
Pac ee nis (Gc 1) SANDE ABS (AHI) <i. 
MES iy) f=2 
mar tenee) 6COmO 20 
TDOT=1.02* VDOT 
CONTINUE 
OREO Dal ZeCryaT 1.20.0.) GOTO 30 
Pa (aes (ail) -L1smBS (AG1) .AND-A3S(AI1).L2- 
REC UNHAY) =o 
IF (I.NE.3) GoTO 30 
@DOT=1.02*aDOT 
CONTINUE 
IF (AG1. EQ. DELX.OR-.AG1.290.0.) GOTO 40 
MCS (eG Ones (fi) AND. ABS (AG1).LT. 
ABS(AH1)) I=4 
IF(I.NE.4) GOTO 40 
UDOT=1.02*UDOT 
WDOT=1.02* #DOT 
CONTINUE 2 
IF (AH1. £0. DELY.OR.AH1.20.0.) GOTO 50 
IF (ABS (AG1) . EQ. ABS (AH1) .AND-ABS(AG1).LT. 
ABS(AI1)) I=5 
IF(I.NE-5) Goro 50 


Mn 
\) 





Hee t—=tou2*UDOs 


Voow=l. 02. YOO TL 
=10 Oy ice 
re tere oa tk S 
ted n Abo (121) .258sd55 (451). 41- 
a ABS(AG1)) =e 
ie CPeees) GOLC 60 
Vey oe 0 2 7 Of 
Ree i= 1, 0254005 
60 Conn a © 
GAs SLA 
© Ae ee OSL 
Pieter iva wa Oxs bawAcCC. Gh. fnAAK) GOTC 70 
GOTO 5 
70 COM US 
TOO (Ga ee re 
wee oe ar slate) Se ACCS A. 

Soeten es ah ne .OCciC Statetents 
iagmonietemee es G.Uc. AG lisa I20.) GOLO 13 
ieee en sO. Adi. sc.0.) GOTO 20 
moe eneese ee soe. Lt |. 20.2.) GOTO 3! 

Mae cnere Oy es 502. 1G 1l229.).) GOTO 40 
PaiAcdenO. Dame nOr AH Ieaue.)..) GOTO 5 
Mme.) soe OnaA let. 0.) GOLO 00 

avoid iterating on orthogonal directions that are 

Secimed aS Zero bY USeE input and to turn off itera- 

mote w dem tnen “alrcrart"’ naS arrived at the desti- 

nation Gene eaae  COOLdiLate Silane). Ores egic 


ecuations that follow choose tne direction 


Peele ips oo A a1) AND. ABS (AG1).L 


ABS(AI1)) 


mass (2a) sh. 39S (AG 1) .AND. 


one 


— 


T=] 


ABS (AH1).LT. 





* Poo{Ait)) i=2 
Wetec et ete ae (AGI) .AND. Aro fal) .° 

*® Aen t) lL =3 
eee oe ee {2k i) ean. aos (acl). 

o ABS({AH1)) i=4 
me Beast). SOs 13> (AMM) sal. bos (AST) ob 

a Poot h £1) ) b=5 
ee one Oreo tao (ten oe ASS (AZT). 2 

- BeeeeaG |) ) L=0 
Wiles (mmr et eo ret ion £5 UO tar > Slace. 26.2 SELEC— 


Gerson e COOSIizate Diake in whi 


istance ilert to jo to tne des 


yp t+ © 
= 


a 
t t 3 

mer ele senmeranyes, tae “alocrait! «iil 
a 


- = on ; = 3 + q -, 7 Seer reas = _ - ee — 
meme er OMRe fo nS oleGCa Qi Ti Clic aS Soot Sees 
cally possinle. Peo ene Sorina Ons, cic "8sr Cr art! 
Pewee we Tumonee te St GLlSecCtionN LirSsSt. 21seliy, the 


Uae i= 1. O0z209C8 
woo = 1202270 2 
FOC l= to 02 joe 


ey 
val 
ct 
}-4 
+ 


Be maOswamtee sidivatioie ace reaciwcl. 


i) 


S 

Cc, 
a 
ta 


hay 


eeeeecxcandied nane: Gemanded perroraance rea 

Cc Macurom- )fCEa USEr Jeltined wafroint taat exceeds 
miewat lovable feaxinua thrust o Sac, vikemever 1S 

Smaller, reduce tne performance demand. 


Ce ecuations/cails: 


ACONT=1 
5 COytINUs 
were N=V2LON= belly 


Movs CAL Le 2. Dia. Vv 





ros et , oy 
gmalwm ei Ve! ( tx t/AlJ 2) 
er | 1 74 
le hf] 2 

-~ ae —e ¢ eae © ene ae 
Ais y= Gg Pate oe oy) 2 


Fee Gamay a) sac 2 
Tea0=v1 
10 CONTINUE 
n= 0 
Che UVELOS 
CAEL MyDOoT Ss 
Guest ren | 
CALL THRUST 
EE (Ale LEsA NOAX.AND.FWOACC.LE.THMAX) GOTO 20 
GOTO 5 


Gomments: Zhe tact adonbted is different crom the one 


Soccer ormmecoctas (lhe ~"“alicrazrt” in moving Eron 
Tee wo Rew TiasS a LCLadlas of Cuifvature. then the 
Bewiosmance limitations Cammy ene at WiGe cur i ear C 


Eaciecice puetars Means the “airerart™ cannot £ly with 
a small enough radius 9£ curvature to converge on 
Pew way polnt "nea" . The two avaiiable means of 
meeting the demand are to decrease the "aircraft's" 
Geliverable radius of curvature by reducing the 
Gestination ("new") velocity or increase the 
demanded radius of curvature to something the 
ieee h art" can accoOmolisn Dy heoving the point "new" 
further away from tke point "old". Frequently a 


small change in velocity 15 surrficient, therefore 


VeLON=V ELON-DELTV 


PweeeGnOSsen w= as the ficst iteration. Deve vs 1s a 
velocity 1ncrement found 2 BLOCK DATA and 


Bormndtely sbi ve Knots airspeed i: 


™~ 


ie eo Se to a 
meters per second. This value wa 
n 


s 
teedaG wee pU LOL’ S Maximum PreciSicn Lh 


Toy Boe 


R= St Ae 2. eDe LTV 
(ee tieGesa} GCi0 1¢ 


close to this iinit, tne second portion of tne 


Subroutine is invoked 


MUGENCO S UNE Aku) 
Re. =e 2 
AG1=COS (ANG) *AJ2 
AH1=SIN (ANG) *A J2 
VZLON=V1 


ih 
oom 
a 
fu 
fF? 


Eom wove the ceczaht “new” further out. Note the 


- 
O 
GA 


Sauakuon; tke view iS adopted tnat an attack oc 
will not wish to Fe at a MinigauUuL energy anywhere in 
mae a@ppraoch pnase. Tnerefore the originaily 


selected airspeed 1s reset into tne iteration. 


Pimsittiarwonm,  €hiS approach was taken in preference 
to merely setting demanded performance equal to 
taximug deliverabie performance to avoid the unore2al- 
Uae sGmiasle depicted ihn Eigure 5.8 

SALCAL 

@e €Xpanded mane; Small call 

Peeeumetion: Lnhis forth levei. suproutine was written as 
a programmer convenience to drive the iterations. 


@e ecduations/calls: 


eae DeLV eC 
Set Pe NT 





teat peas REY ER. Raley eee opate sie a te 


ee 





- re 


| 
AVERY SMALL LATERAL OISPLACEMENT | 
| 


UNTIC “AG1 COLLAPSES TO ZERO 


eis we re ee eee 


Figure 5.8 UnnedlasteLec Scenario. 


Cail LAaPVveL 
CALL iNri hit 
Salt ANGLES 
CALL xOTRAT 
@yiL ACTTKiIC1 
CALL AGCIRN2 
Shit ACTRM 3 
CALL ACaVEs 
SxiL ACACC 


qd. comments: Vomecninemseen 7 Lae subroutines are these 


rreviously described. 
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Vi. HON-BIGCAL IBMPIP SUBROUTINES 
Ae INIRCDUCTION 
mer the sake of Erevity, the only subroutine addressed 


in the section LFelow is the one that was drastically altered 
Memaccomodate the sBIGCAL packace. toe rest or the sutrcou- 
memes that are not mentioned may be found in tre listing at 
the end of the thesis. They will have changes [from the Jonns 
fRef. 1] version of IBMPIP but will also have extensive 
Bebe ctS CL comment cards to describe to xey points of each 
Subroutine. 

The final section provides a consolidated iisting of the 
Mean tcs calls along with a short description of their use. 
MmemecOliow-cn alterations to this version of IBAPI2 the user 
Smegrd consult [Ref. 2] for complete description of the 
Mpateable graphics sukroutines. 


See SUBRCUTINES 


fee ER ACHK 
ae Expanded name; Error checking 
be runction: Check the user defined "new" waypoint for 
game rule violations or user commands before 
EMmeering Inte the BIGCAL Subroutines. 


ee Gsuations/cails: 


De DanGw— «1 

Dea Se Ger 

DIST=SQRT ( DX*#2+ DY ** 2) 

PMCDEST SEE POPE) GOTO 10 
TF(Z1.GT.APPMAX) Z1=APPMAX 


Pete tebe A PMN) A\=2 EN i 


05 


GOTO 30 


10 


40 


50 
60 


e 
ty 
é 

Hh 
Ui 
e 

Gy 
Al 
e 

i-4 


H2.08.65) GOTO 20 


PaaS Lay, £1sSAALT 


Gv 
ro) 


IF (Z1.LT.BRHIN) Z?=5EUIN 
LF (Z1.GT.BRMWAX) Z1=5EMAX 
IF (DIS » BRRMAX.AND.DIST.GE. 3REMIN) 


If (DIST.GT.BRENAX) IERE=9 
IF(DIST.LI.BRAAIN) IERS= 
RETURN 
CONTI NUE 
TOTIDG=ATAN2(DY,DX) RTD 
MCLG EHGs ee.) TGTHDG=TGTHDG+ 260. 
Pe=X1—" a (ICT) 
DY=Y1="t (2C7T} 
ACHDG =ATAN2 (DZ, DX) *RTD 
IF (ACHDG.LT.0.) ACHDG=ACHDG+360. 
HDGLM T=AB3 (TGTHDG-ACHDG) 
IF (HDGLMT.LE.5.) GOTO 40 
IERR=10 
RETUEBN 
CONTINUE 
DIST=SQRT (DX*¥*2+DY ** 2) 
SPEED =SQRT (dU (ICT) **# 24WV (ICT) #*2¢WW (ICT) **2) 
DT=DEST/SPEED 
TE eG Hee ss) GOTO 50 
IFRR=10 
RETURN 
CONTINUE 


and 


da) 


CONTINU Ss 





d. 


ccmments: The first equations estarlisa the distance 
iron 
OAS TARCK-X 1 
DY=TisGxr-Y 1 
DIST=SQRT (DX**2+ DY ** 2) 


bh 


Piemway comes New eG che target. Tne Lext group o 


ecuations 


Po) ole bee oun) COnclouc 
Mem21.Gl. APPA dc) eH APP MAX 
LE (Z Vole ne ne) ZI=HTMIN 
CONTINUE 


look at the user input altitude. If the user exceeds 
either the maximum Or Dininum inbound altitudes, the 
Piura meme une wlS AUutOMaLICally set to the limiting 
Paramter. AFEMAX ,HTMIN, and POPHIN are ‘fourd in 
BLOCK DATA. The next goup of lines satisfy the game 
BoEane tenet hat the "“alzpecrart' must de "soppec-up" to 
a given altitude berore aim at the target can be 


taken. LTR is the codé rassed fron 


Paice ONG eo) Continue 
IF (Z1.,LT. BAALT) ZI=S5AALT 
GON oN Ur 


the graphics subroutines signifying that the bomb 
aim line 1s desired. LTR2 1S a Dack-~-up code passed 
from the same subroutines and allows the user to 
change his/her mind while stili entering data. LTR 
1s generated upon entry of the X-Y point on the 
graphics screen. LTR2 is generated upon entry of the 
Z~velocity point on the graphics screen. EAALT is 
the mnemonic for bomb ain altitude and is found in 


BLOCK DATA. The rollowing statements ail relate to 
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the bomb release SOLD. at ponds release is rot 


calied for; 


ares CaaS Glen fan 
ao See renee 


Ssxirs over ali the rest and returns to MAIN. If at 


bkomrk release the altitude is too high or lox, 


IF (Z1.-LT.BRSIN) Z1=BRMIN 
IF (Z1.GI.BEMAX) Z1=BRAAX 


set the altitude to the "miniaum/maximum allowaple. 
ERMIN is the mnemonic for Rinimum conb reiease alti- 
MCC stax 15 Simmiiar, and both are defined in 
ELOCK DATA.s~ FEecause the rlignt path 1s now curvili- 
near, there is no convenient wav to correct for an 
input that violates finigua or maximum bomb release 
range (from target). Error codes are generated that 
inform the user that the just-entered point will 
have to be moved. BRRMAX and BRRHIN are found ia 


ELCCK DATA. 


Pao areas k MAAS AND. DIST SGE.SRRMAIN) continue 


Pav eotaGclsocRAMAX)  Lonn-9 
Paste nie BanteNy) LESR= 13 
RSTURN 
COIN & 
mies f£OllOwing group of Statements compare the 


heading from the aimpoint to the target with the 
aircrart neading to the target. 


TGTHDG=ATAN2(DY,DX) *RTD 

IF (TGTHDG.LT.0.) IGTHDG=TGTHDG+360. 
DX=X1-wWX (ICT) 

DY=Y1-WY (ICT) 
ACHDG=A TAN2 (DY , DX) *RTD 
SP(ACHDG.LE.0-) ACHDG=ACHDG+360. 
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an Pio SS BD ~ a s- 
Peo Lt s.) Continue 


Peeve 'dpreckatt heading 1S not Within five deaqrees 
of the aimlire tne user 1S inrtormed, and the foint 
must be user moved. RID 1S the mnemonic for radians 
momepeccrecs agg is £0usd in sLOCXK DATA. ieee oe 
aircraft does not travel down the ainline for a 


fmm Of 2.353 seconds 


DIST=SQRT(DX** 2+DY**2) 
SPEED=SQRT (WU (ICT) **2+HV (ICT) ¥*2+N0 (ICT) **2) 
DT=DIST/SPEED 
PanmenGes 255 GOlO Continue 
ITEFR=11 
RoR 


CONTINUE 


the user is informed, and aust make tne correction. 


C. GRAPHIC CALLS 


PoLN It 

Mmemction: Initialise both of the 3277 screens. 
Pol ERA 

function: Terminates dual screen jraphics activity. 
GASVIE(aa,bb) 

mumetazon: Derines a viewport, or a smaller porticn of 


the total graphics screen available. Allows surdividing 


the total screen into several smaller pictures. 


SASWIN (aa,bb) 
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memernon; takes the Gata Deng SUpplied by tne useris 


Peo wmeecenverts 1 intO adssSolute goaphic Scr sen 


hy 
O 


Seordinates iN Preparation ror drawing. Takes care or 


@eoccrtionality.- 


mee elt (aa,bb,cc,dd,¢€e) 
Mmriction: Convert user Ssupolied character strings into 


intejyer vectors. 


meexciC (aa,to,cc,dd,é¢e) 
BarPetion:s Convert one or more integers into characters 


in preparation fcr writing onto the graphics screen. 


@eredak (aa,bb,cc,dd,ee,rf) 
manction: Invokes two lower-level graphics cails to 
write characters on the graphics screen in the djderinedi 


mont. 


Mmecanc (aa,bb,cc,dd,ee,fr, gg) 
marction: Invokes two lower-ievei grapnics call to 
generate an arc of e1ther a circle or an ellipse (can 


eeeso be the whole circie, etc). | 


G3GDOT (aa,bb, cc) 
function: Invokes two lower-level subroutines to draw a 
mrLied-in dot. 


fern rC (aa,bb,cc) 
Bynction: Read cne graphic data point usiny the cursor 


crossS-hairs. 


Berec Tl (aa,bb,cc) 
functicn: Generates a "nove-to" or a "draw-to" coumand, 
depending on whether (aa) is zero or non-zero (real 
hunter). 

on RS o 


function: Erase the graphics screen. 
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mor khC s 


moedction: 


Sereen wlth new 


GSLT (aa) 


manctiocn: 


ioO't , 


dashed, 


Sets 


ll : 
TOBE ay 


eataz 


Cie ts 
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the line type 


to be used 


rh 


Sis. 


“nN 
va 





i» 


VII. STATUS CF PROPOSED IBMPIP AND 


in 


DMMARY 


eect ane 


Despite best efforts, tne proposed version is not react; 


for implementation. The flaws revealed by extensive testin 


(Q 
~ 


Mem@emet around the two iterative subroutines and are felt to 
MemeesOlvable. In particular, subroutine 4V¥DOTS does not 


Mme LOL the gollowing situation, see figure 7.1: 


, nOLD” AGL ee 
e- —> ———  ————~ X 


Ads UNEW 





® 

| 

| 

| 

Y AIRCRAFT TRAJECTORY 
VOLO AT "OLD" 


Figure 7.1 A Situation Not Addressed By Subroutine ACACC. 


mee = (VELON**2-VELOO**2) / (2*AJ1) 


UDOT 


(AG 1/AJ1)*ACC = 1.¥*ACC = ACC 


mot = (0./Ad1) *ACC = O. 


eZ 





emcee that by tne modei, VDOT=0. Realistically, this wile 


not be so. iow meer Ole gndeene “aircrart" will nce 

mame y distance pelcw “old". Let tnat distance ce Takeu 

Meeoconm Of YURK. YOCT then will actually pe: 
VDOT=VOLD #* 2/ (2*YUNK) -- of some positive vaiue. 


Phe best estimate at an approach would be either to guess a 


temporary distance based upon the catio; 


(VCLD/UOLD) *AG1 


Or to guess a temporary distance based upon a linear guess 
of the elapsed time between "old" and "new". Let linear time 


estimate be represented by LTE, then: 


LTE=ABS((UNEW-UCLD) /UDOT) 
YUNK=VOLD*LTE 


VDOT=-VOLD/ (2* ( (UNZW-U CLD) /UDOT) ) 


Another area of concern is in the definition of the 
angles in subroutine ANGLES. Artificialiy large effects are 
Meme tne angles PSINEW and PHINEW ar DELK or ODéELY 
Beeeeapse to zero before the "aircraft" arrives at "new" in 
all three orthogonal flanes. Additionally, large effects are 
produced in the last DEL~ movement to "new", causing a 
hang-up in the BOCSTE/REDUCR sSucsroutines. Because the 
current game restricts altitude changes to approximately one 
Magnitude less than either X or Y changes, the effect by 
THENEW (theta) is roughly one magnitude less througnout. To 
Pave the way tor future efforts to smooth out the anscle 
changes retween "old" and "new", the variable counter MCCNT 
was added to COMMON/AEES/. MCONT is set from 0 to 1 Ly acti- 
Vation of e¢ither BOCSTR or REDUCR and switched back to 0 
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Meon E€Xit from ¢€ither iterative loop. AS nue 
Meatten to test files, mreowacdteaon of HCC 
Beeaumr allows ciirferentiation of first-yuess values fron the 

MeoOoeR/REDUCR generated values. 
@he guestion was asked, “ir the angles (and theretore 
rotational rates and therefore anguiar acceleration) ccmrfo- 
Oren 


nents ax so troublesone, how necessary are ta 


(1) 


od 
yet 


s~ 
ae 
‘ear 
< 
- 
bus 
bent 
o 
} ae 


meeuracy Of the outrut?". An @nalvsis o£ the 


pu 
cr 


acceleration componentS in Subroutine aCACC révealed th 
S@mssi0n oO: the angular accelerations couid lead to as much 
as a 50% difference in the magnitude of the net acceleration 
in any one of the crthogonal directions imposed on the 
aircraft. The answer then, 1S that smooth generation of 
angles is necessary if the modeiled trajectory is to be 
considered faithful to a reali flightpath. 

In summation, a proposed IBMPIP improvement has been 
introduced and discussed. It is supdstantialily more user 
friendly. it employs increased use of Specialized graphics 
from [Ref. 2] and when completely debugged, will provide a 
far more accurate flightpath trace with iess user interac- 


tion necessary. 
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Wocnis sOeaAbh POR CURRENT ISMPir. 


USER'S SANUAL 


Rote eo 
AITHCRAFT COMBAT SURVIVABILITY 


A SLUDY 
of 
Heenan SA tek TLON 
in a 
HOSTILE AAA AND SAM ENVIRONMENT 


NAVAL POSTGRADUATE SCHOOL 
BCNDTEREY, CALIFORNIEA 
REN Dene OURRT ER, 1960 
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LowenanCODUGT ION 


emecpalrcrart attriscion study is designed to present che 
ment Wich an opportunity to see first-hani how the 
Memeyivability of an aircraft can be evaluated in a given 
combat scenaric. The methods emplcyed in this study are 
those used by both industry and government when making 
decisions in the survivability analysis and design of an 
aircraft system. In this study, one computer program named 
Mgmt ne AFATL Antiaircraft Artillery Simulation Computer 
Program) will be used to Simulate the flight of a typical 
Naval aztack wera.  —ntOugh. 4 hos tesroummarera== cr art 
@-~illery (AAA) environment and tc compute the aircraft 
MegbaDility of survival. Another computer program, MICE II { 
th: Missle Intercept Capability Evaluation Program), will be 
Used to compute the survivability of the aircraft oon <he 
sane flight path against a typical short-tc-medium range 


surface-to-air missle (SAM). 


Mie, DOD specifies the use of POQOT and MICE in all 
non nuclear Survivability assessmerts AcE MIL~-STD-2069, 
BeOuLRERENTS FOR AIRCRAFT NONNUCLZEAR SURVIVABILITY PROGRAGS, 
24 August 1981. 
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fn eo cho era NT TLON 


BMPs C MocrC eC mcCcnasce a SuULYivability assessuent or 2 
familiar Naval aircrart, shown in Figs. Page, Ona 
Mypical attack mission to destroy the oridge shown in 
mg. 3. 

mime class Wiil be divided into groups of four (4), with 

BRE@GemM CES IN EdcR group on the 3LUE tean and twe 

members on the RED tean. 

Fach team will use P0U01 and dics II to determine the 

Blmevyivability OL the aircraft on tae class probiem scen- 

ario, as zollows: 

1. Each team will generate a flignt a flight path to the 
bridge according to the rules of the Scenario given ir 
Secticn IV. Keep this path a secret. 

2. Each team will also select tne locations of Six AAA 
emplacements and one SAM emplacement tnat wili defend 
meaenct adl& attack. Locate the weapons accordinc to 
the crder of cattle given in Section IV. Keeo these 
locations a secret also. 

Seeececn team will conduct an attack against tre other 
mean in the following fashion: The two teams in each 
Seoup will conduct a trade of orfensive data files. 
That is; RzD teams flight path will go up against the 
BLUE teams defensive positions and BLUE teams rlight 


path will go ur aginst RED teams defensive positicns. 
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Rize cle REC DESC RE PTION 


Thais scenario 1s furely for instructional purvoses ancl is 
MeneoaseaG On any actual orf planned combat attacx situ- 
mepon. the target site, order of battle, and flignt pata 
and weapon delivery parameter limits have been chosen 


@may tO provide guidelines for the class problem. As much 
hea.iSm csaS been introduced [or the players 45 possitie 
While retaining an unclassified scenaric. 
Mejmeetarcee is the briagge shown in Fig. 3 located at : 
m—— 4700) mtrs 
ie--—— 7,229 mtrs 
Pa 20 Mtrs 
Meavy Military Supeliy traffic has been reported in this 
area. Your mission is to destroy this vital supply link. 


Maem cCOllowing order of battle has been gathered froa 


intelligence reports of the target area: 


eee e ene Slte in the vicinity of the target 
AAA - (2) type 1 mode 1 

(2) type 2 node 1 

(1) tyre 3 mode 3 

(1) type 3 mode 4 

(1) type 5 mode 3 


**NOTE** Gun types and their relationship to AAA and the 


D. 


eee tyoe will be discussed in class. 

The SAM threat reguires that the inbound approach to the 
target be made f£rem the west at low level. A pop-up 
maneuver iS required to visually identify the target 
followed by adive bombing run to weapon release. The 
aircraft ordnance consists orf MK82 500-pound Snakeeye 
bombs. Egress must be made either to the north or south, 


depending upon individual strategy. 
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feeethe ccliowing list of scenario limitations to be i1séa iz. 
the develonoment of your strategy: 


fee Aircraft speed limitations 


aerate Staee. ——————=-——-—— Seay ot ie. Ki Cts) 
Plakias lL toons -———--——- 200 nfs (505 xnots) 
ee Naxinun, bomeS released -- 310 m/s (603 xxnots) 


Meme arcraztt altitude limitations 


ame pslor tC por=-up 


iP ia ke -— 457 MCLs 

Peet ===> 60 mt rs 
Me arter pop-up 

1). max -- 2050 ontrs 

Aen a= OU NLES 


3. Maneuvering -- will be limited by: 
ae eacust 
Db. speed prake s1Ze 
eeaercrart "g" loading -- 
the shorter the leg distance 
Eimicesjreater the restriction on: 
Neeamouwnt OL t UGE OR 
Ze airspeed/altitude Changes 
**NOTE** Remember the following ruie of tnumb -- The greater 
a change in altitude the closer together minimun and 
maximum allowable velocities get. 
4. Pop-up maneuver 
Bead bl Oe Gist {from tgt) to pop-up -- 6000 mtr 
D. M1nlmum accertable pop-up altitude --- 1000 mtr 
5. Ordnance delivery 
a. boresight dive/glide only type acceptable 
db. dive limitations 
Mmtusce Last == 2.35 sec (606 mtrs at 260 knots) 
2) heading ---~ must be within 5 degrees 
SeNOTE** The closer the attacx 
1s pressed to the target, 


the more precisely placed 


3) 





F. 


i 


the tomb release point must be. 
©. boms release ranges 
Peder eovdg.e £rom tot -- iW00 mtrs 
ee lea Oman lenit LON Cyt —-—- 100 mtrs 
d. bomb release altitude limitations 
ee iece dtrovaole == 2000 ntrs 
2) Min daliilowable -=-- 100 atrs 
Weapons emplacements 
[eeOLraer Of emplacement fixel by program and goes 


me type 1 node 1 


{2) type 2 node 1 
(1) type 3 node 3 
(1) type 3 mode 4 


a seventh type 5 node 3 battery 
is always fixed at location 
m= 12,000 mtc/Y=/,500 mtr (near bridge) 
2- heither of the type 3 batteries nay be placed closer 
moan 3000 mtrs from bridge. 
3. {1) type 5 SAM Lattery may pe put anywhere 
Bast Of the 6000 mtr X location 
Locate the AAA & SAH Datteries (constrained by the above 
conditions) to defend the bridge. 
Meerror a Flight fath originating at an entry point any 
where near (but nct font) the western boundary, attack 
the bridge and exit the map anywnere near (but net ‘on') 
the northern cr scuthern boundaries. 


May the force be witn you. 
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ieee onsh os FOR OPERATING LSaPprlep 


Ae in gross terms, the following will take place: 
1- a computer Session with Ibmpip 
Peeesubm@ission of your data to (2) Daceh erockans td 
determine your success 
3. making a hard copy of your map from the Tektronix 
TeK61d terminal 
Meeeene ftOllowilng equipment 1S reguired: a graphics station 
meesisting of: 
feedna f843277 alpha-numeric terminal 
2. a Tektronix IEK618 graphics screen 
Sean (8M curscr controljoystick 
Many will be familiar with the above fron working with 
ene *DISSPLA" programs. Additional information will now 
be supplied to enable utilization for this interactive 
gtaphics progran. 
Seeeceflight: 
Meeecrsure gravaics terminal switched on 
2. joysticx set up -- ensure all taree (3) 
blue rocker switches are intne (NORMAL) position 
3. tne 3277 terminal should always be ‘power on' 
Sete NOt —- do so now and set screen 
intensity to your satisfaction 
De Program execution 
Meter tC Appendix A to link up to Aero Disk, run IBMFI? 
and generate a flight path. Appendix B shows the sequence 
for gun/missle positicnins. The plack arrow heads are user 
entered commands or responses. 
The fcllowing notes amplify certain aspects of the 


procedure. Read the Appendices and refer to these notes. 


Sees U=DISK FILE; 1=TIERMINAL; 2=PRESET 
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mromrot ™cnocse DISAVFILE until you have created one by 
memeezeng TEPMENAL tc input some gun/nissie locations. Tfa2 
Meeations entered at TERMINAL will on your disk as 30.a Loc 


Al. 


Memon ArT MILESTONE INPUT: O=DISK 1=TERAINAL 
Men the same reason aS above do not choose DISA until 
Mummerniave Created a file by wteilizing TERATNAL. Your fiight 


/meemewill be wricten cn vour disk as PTS LCC at. 


Bmeor CHECKING: O=NO CHECKING 1=CHECK FOR ERRORS 

Recommend only using error Cnecking when entering 
@i@jeradtt flight path at terminal. It will erroneously acti- 
mate On good data peints being read in from the data file 


you will create. 


MelGHtT &© GAME PARAMETERS 1=DEFAULT 2=USER INPUT 
BoE class competition, select 1. 


t 


VILLAGE CRAWN O=NOT DFAWN T=DRAN 


User preference. 


Meek ALTRKCRAFI MiLESTCNES 

meen at bottom cight hand corner of the [aM screen. You 
Muemeesee MORE... This is a prompt for you to hit CLEAR key. 
Waen ycu do, 

Meroe Forder of the map on the graphics screen wili 
measn aad tae red light on joystick control will illu- 
Minate. 

2- YOu May or may not see cross aairs on your graphics 


screen. Move tke joystick around and try to find it. 


SS 





SepGemtifvem™ CE OSS hair is to taint, turn CLOCKNISE the 
Mette PHEOQUGH “INTENSITY xnob ieee bomen e) GClazawc. 
Secce wee Vou LOO MUCH. ««- 


[~—emeeenme CLOSS haik 2S too lntenSe it will Wige «a Loa yiat 
PepUeadstosc War Messing i1t up. Turn COUNTERCLOCKWISE 
meme Walls THROUGH INTENSITY knoo, until 1¢ Stops. 
Memethe CLOSS alc may drixrt slowly without your moving 

the joystick. Two little slider switches, under and 
momthe E1GhE Of the joystick are used to cull out this 
eeiit. Move mene Onpvicus One saatil unwanted aetion 
stops. 

6- To enter a point: Manipulate the joystick until the 
cross hairs are somewhere near tae western porder. Tne 
hugber keys on top of the keyboard are the ones used 
to enter a data point. Press any «xey greater than 4. A 
dot will appear and then the border around the 
altimeter/fairspeed bar will flash, prompting you to 
move tne crosshair over there. DO sq. 

The vertical cross hair is to re set on your desired 
airspeed (as read £f£rem the tick marks on the bottom), slow 
on the left, fast on the right. Altitude is determined by 
the horizontal cross hair. when satisfied, press a number 
Key greater than 4. A dot will appear and the border will 
flash (if all goes well) prompting you to return to do the 
ext point. 

Mmerall does not go well, the Skinny rectangle tc the 
Cight of the graphics screen flashes and you will get an 
error message. A list of all possibie error messages is now 
provided. Read them and the suggested user responses. 


KKK RK AK AKKEEK A TRCRAFT  *% #0 ROK RK EK K 


MeeLuUuN ERAKING EXCEELED 


The aircraft unable to slow down to chosen speed -- 
increase speed. 
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MAX G EXCEEDED 


paee ——~ Usually 


arvrclrazte 1s 


= e “ = = ca a 5 
MOt able Zo Randle Gr-ioai or 


meme ——~ trv slowing dewn a little. 


MAX TERRUST EXCEEGSED 
The airspeed chosen is 
*eNQTE** When staneuvering 


hE. vr “~~ ye Tr wpe wy oe . ~» * 
man OoaAan ins anid Wad 


between 
unable to £ind an airspeed 
ieee ls 1] upaule 


LO 


meri tudce. 
will have 


Beain. 


mor iCO LOW 
seif explanatory. 


mer, 100 HIGH 


self explanatory 


BeesUP TCO LOW 


Selzr explanatory. 


Pep DRCP 
Self 


LO Wi 


explanatory. 


BMB DROP 
Selz 


HI 
explanatory. 


STALL 


Mere -- try increasing 


to fit between the limiters, 


back up and enter 


EOeplasee-- sSlOw |COwnh a Little. 
near tae target, tne distance 
foot oct seo pe. Smali. Ii 


between then, here me weGranhoing 
VOU 
LFOCcatrton 


a new xX-Y and try 


airspeed. 


Cay, 





tI 


fecsS DEG 10 TG 
Meee euter the A-Y POLint. 309 a better job cf pullin; 


point on Lomb ain line. 


meee RUN<Z.33 Sec 
Mast reenter the X-Y¥ point -- put it further down the 


aimline toward the target. 


NO HCRIZCNTAL MOTION 
Rare You didn't move far enough away from last entered 


point. Reenter a new X-Y poizxt. 


Mee LiFT EXCEED 
Extremely rare. Manuever too severe. Try adjusting 
meee GOWnwWard or moving altitude closer to the last one 


entered. 


eR KR KKK GUNS | RRR KR KRRK ARK KKK KEK 


meeo CLOSE TC [GT 


Type 3 guns not far enough out from bridge. -- Reenter. 


Sok go CR tok ek ea OM TSS LR ek ae ook ae te a ok ok ok 


X COORDINATE LESS THAN 6000' 
Missle is too close to the western border. Move to 
meee OL €000 mtr line. 

If you make an error anc do not throw away the X-¥ 
point, the altimeter border will flash and you may make you 
airspeed/altitude corrections. If you choose to correct the 
Meeepolnt, the map Lrorder will flash and you must then go 


over and reenter the point, see tae altimeter itiash and 
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meparn ito it to reenter the associatea altitude/airsreed 


combination. 


i all gees well, MOmmerrOnm 25 Sade and the ser 
Megieecds. Once the second point 1S entered, the program will 
connect-tnre-dots. Cbserve Fig 4. 

AS you progress, your flight path may resemble fig. 5. 

Memthas cide mete tne bold rings on the map. 

Wee mesOuteh Pano ds USed fOr aircrart »o9cp-up. Once 
Piskios the CLE y, VOU fay at any tine ccngence 
BOP up. 

Peele TEhner ring is used for placing gun/aissle 
batteries and is expiained elsewhere. 


6. 


user knows where the guns 


Cbserve Fid. In the artificial case presented here, 
the 


them to a 


are and 1S faneuvering arouad 
uF 


where the 


thin spot in the defense. Up to point the 


mmecratt 1S maintained at a low altitude. Note 


dots are on the altimeter ber. 


Observe Fiy. 7. The user has popped up between points 12 
eo 13. Hiiserveouscnce tone aititeude dot at about 1250 mtrs 
aititude. The user is ready to take aim as he is about to 


Press it for 
A dotted 
liane will appear. This is the line you must be on to release 


miput point 13. 
both the x-Y 


Number 1 key 1s tne ain button. 


PoOlmuednuaetne associated altitude. 


the bombs. 

oe 

Press the Number 2 key tor both the X-¥ point 
altitude. Note the 3 dots at about 800 

trys to get the airspeed right. 


Observe Fig. Foint 14 is entered using Number 2 key. 
Bombs Away. 
and the associated 
ec OS kK 


time to separt 


2 


sea 


mtrs It is now 


Dodge City. Point 15 1s entered using Nunter 


4 key. Again, 
the associated 

occurs. 
Summary of 
1=take 


Z=Ecmb 


as always, do this 
altitude. Normal 
the special keys: 
ain 


release 


oe 


Bor Jorn the K—-Y point and 


termination or the progran 





d=akbEnormal termination 


t=Toms a. temmenation 


Meee sr ADROCMaL tereinetion is used t9 go rack tec eee ie 
Beene cligh path ana start over. 

*NOTE** The Significance of these four (4) keys only 
meperes to aircraft milestone entry. Any numbered key is 


@Dpropriate for entering gun/nissle locations. 


Gemee eu FINISHED Wilh THIS FLIGAT PATH: O=NO0 1=YES 


Answer with 1, the 0 isn't working at present. 


OUTPUT FILE: 0=NO OUTEUT; 1=OUTPUT 

In order to submit your data to either 7P001 or MICE you 
must have generated Foth a guns/missle AND a flight path 
file. Until both are done or when experimenting without a 
desire for survival statistics, select O=NO OUTPUT and 
ISMPIP will terminate. 


Mees DED OUTPUT: O=NCT WANTED: 1=cXTENDED OUTPUT 
Select 0; there is a bug in selection 1 which coes not 


affect the operation of the game. 


Poole TYPE BETWEEN 1 AND 7 ; 
Select 5 only; tne performance data on ‘the other missles 


are not contained in this instructional package. 


Seer rOURK USER ID NUMBER: -- WITHOUT THE “p" 

The questions ycu are now answering are for the auto- 
Matic generation of JCL (Job Control Language) cards that 
Watt be inserted into the P001 DATA Al and/or the MICE DATA 


Meeeaies for submission to batch proccessing. 


o:0 





Petia s time bLerer to Appendix B for procedures on 


entering gun empiacenents. 


SemeenciCr® 1 NEGATES GCING TC aLiIINcTEoeR 

The advantage orf choice 1 to the user is the convenience 
Of not going over to the altitude bar for the guns/missle; 
each tine a battery is enplaced, the map border wiil flash 
@ygain, prompting tne iwnput of the next patterv. Should <~ be 
selected, there is ne program liait on now high a 
emplaced. Consent eC UCM UENStiUuGtOr tc cetermine his 


wishes. 


MenoR CHECKING: O=NO CHECKING, I=CHECKING 

You have ail ready become acquainted with the possible 
gun/missle errors. It 1s reconmenied that error checking be 
not selected, for the POPLOwilng Leason. AS earlier 
Memmeeroned, error checking will trigger on flight path data 
Memegetead in from a data fiie. At present, once guns/noissle 
are entered, the user must still eitaer generate a rlight 
Patho at the terminal, or read one in grrom a data file in 


erder for program to progress normaily. 


ENTER GUN LCCATICNS 

Look at the bottom right hand corner of the IBM screen. 
Meuewill see MORE... You are being prompted to hit the CLEAR& 
key. At this time, the map border wiil flash and the cross 


hairs will appear again. 


Ns this time Look sequentially at nis. 
Meo 11, 12,13,14,615. The fixed, type 5 battery is all ready 
ime piace. In each succeeding frame, another battery is 
emplaced. 
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Now note the inner bold ring. invsowaseeeae 3000 atr 
mnt , outsid Sue voeen ~your type 3 weapons aust fe 


e 
Bmogaced. Nete Figs. 14 and 15. 


Tem screen wiii illuminate with the rollowiny message: ENTER 
Meeopee LCCATION along with the now familiar MORE... Again 
hit the CLEAR key and enter the missle location. Observe 
Pig. Neecareftuliy, as the missle symbol is not Large. 
f=0,500,Y=9,500). 

PeemetaiS DOint you will be crometed witn ENTER ALRCRAFT 


MmeeSTONSS. Proceed as discussed uncer Aircraft. 


fem COMPLETION OF SESSION 

When you are all done, and IsMPIP is terminated you 
should have a GUN LOC file and a PTS LOC file rcesiding an 
MeemeeAl disk. If you are not ready at this tine to conduct 
file exchanges with the opposing team you release the 222 8 


disk with the command: 
mL 222 
Piet LOG OLt or whatever. 


Beco, LC MAKE A HART COPY 

To make a hard copy of your map, reach over and hit 
the HARD COPY button on the graphics screen. A loud racket 
Meee indicate which printer is making the copy. Most of the 
graphics screens indicate to which printer they are 
attached. You may have to turn on the printer as they are 
mMoisy and are frequently left off until needed. If you turn 
the printer on, give it 30 seconds to 1 minute to warm up or 
copy quality will te non-existant or severely deyraded. 
Baemnpess of the ccry 1s controlled by the HARD COPY 
INTENSITY knob under the Grapiics screen. CECCKW IS 


mecreases darkness. 


SeemehOR ITO EXCHANGING FILES 


ee 





~ 


Exchanging tiles is the method of attacking or defending 
Mpevete tne OPPpOsOng teas Ir a tiie 1S sent to another user 
gma that user has a file ty the same name the incoming riis 
MM OVELNLite the Existing fiie destroying tné existias 
file unless precauticns are taken. 

The following is recommended; RED team; rename your j;ts 
Mmeemrile PiSkR LOC BLUE team rename your pts .0c fTiie PTSB 
EOC 

This canbe done inside FLIST in the following manner; 


Place cursor beside FIS LOC and tyve 
RENAME / PTSR = = 


mienat enter. (The BLUE team, of course, would use PTISB) Now 
your file is protected. 

Pee /nhsD) team; Sens your (PISS/PTSR) iOC Lile to the 
Opposition. [If the respective teams do not have a SEND EXEC 
file, one may be obtained from the Aero Disk. Link up to the 
disk uSing the previous instructions. when linked, issue tne 


following ccnmnand, 


SeND you user number) SEND EXEC. 

Beamete; ScND 2408p SEND EXEC 

Don't forget to release 222 when done. For instructions 
on how to use SEND, merely type SEND. It will also teil the 
receiver how to load the PTSx LOC rile sent to them. To lead 
this SEND EXEC on your disk issue either of the following 


commands; 
RDR 


DISA LOAD 

Once the tiles are received, rename them back to PTS 
LOC. Link to the Aerc Disk uSing the described procedures. 
Run IEMPIP and select 


W=DISK for guns O=DISK for aircraft 
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Dee eo es CULTIONS USED IN TERT 


meom | Ret. 3], irstaxrtaneous velocity is given as; 


yas 


>_>) 


Q. 


and inStantaheous acceieration iS given as: 


e 
t 
ele 


Memode first ecuation is solved for dt and substituted into 


the second eguation, the following results: 


ads = wdy , 


Tx the acceleration is presumed constant over finite 


distances, the above equation may be integrated: 


2 Vuew 
a | ds = { wd v~ 
. Yeu 
a& 2 
a. <= 


Vaew ~Vow / 28 


Ace = (VELON X¥*2 — VEWOXK 2 ) ae 2x AT) ) 





te ok Heke KR AR pK ok ea kok kok K KKK KARK KE KKK ERK ERK RK KK ER KKK EK 


Meeuiiing to, ket. 3 },. Lor; 


= ov 
de 


mee eCClaiton is recast as; 


bs. 
r th 


dy = adt 


Gmemtene presumption of constant acceleration is made, tie 


BoLlLoOwing integration results; 


VNew ae 
dv = a) at 
Vou . 


NEW OLD 


Vunew = Vopot ak 


EK IK HK OK KR OK Fe eK Ke oe KK KK KK KR Ko KK Ke KK KK 


Bea@ostatute this equation into; 


es: 
be 


S56 





and integrate to get; 


DELX = UOLDX DELTES +.S* UDOT ¥ DELTEE *x2 


ME HE eK eK KK KK KK KO OK KK OK OK KK KK KK KK KK KKK KK 


Reaching Lack; 


VTEMP t 
| a. = a | dk 
Vouo ° 
Vteme = Voip tak 


UTEMP = UOLD + UDOT X DELTEE 


a7 





Hck kok Rk ak RK KK EERE KE RAK RK KR RK KK RR KK RK RAK RK KK EK 


Meee | ket. 4), for a steady coordinated turn; 


TURNRATE (deg/sec) = 109] 4tan ¢ (4) 
Ava 


(@)=bank angle (degrees) 


V =velocity (knots) Tas 


Convert the turn rate to radians/sec: 


TURNRATE (%s) = last tan ir) | 2Tr 
ate 360 


Convert V(knots) to V{meters/sec): 


rurnrate (%s) = 1091 tan Gr) « 277 
(+ 1.9438) 360 


Solve for angle of bank; 


Ptr) = atan / wanrate (%)+ WU") 
eS 


PHINEW = ATAN( TURNRAT XVELOT/ 9.7958) 


BKK RK ee ee eK ee KK KK ek KK KKK KKK KR KKK KKK KK 
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Meemeiner. 9), the tressure ratio as a function of tenpera 


ture and altitude, for the modei atmospnere is: 





t 
( - «| dH 
», ~~ RR / Te + (dT/4H) H 


( G/R 
—dT/dH 


O- 
—~| 


| 


OE 


. : p+ ( le) 


where 


p (naught) =standard sea-ievel atmospheric pressure 


qT/dH =temperature lapse rate in the 


troposphere 
H =geopotential altitude (assuned 
e€gual to geometric or 


tapeline altitude for low altitudes) 


fT (naught) =standard sea-level atmospheric 


temperature 


GQ) 


=acceleration due to gravity 


(assumed to be constant) 


R =universal gas constant 


The temperature profile for the same model atmosphere is: 


T= B+ (éTAH)H 





applying tae perfect gas iaw to get persia) 


s- 


G/R a) 


en 


Mryeetemperature lapse rate in SI Unpes. 2S: 


aa — 3 
aT = —6.5%10 KY 
aH 


Gravitational acceleration in Sl nits 1s: 


G= 9.807 tae 


The universal gasS constant 1S: 


wer oc 


7 *k 


Thus; 


G/R 
—dTt/dH 


and sea-level standard air density is: 





mac: | — 4.254 


N- s* 
pe lee a 





ty 


© 


rth 
ae 





SOO dato dak tok okt k acm kok Soak a kook sik ak hk aK RE AH 
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APPENDIX ¢ 
aa eer A ty AT ag Co Se A os 8 8 7 Dh A te 
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a ae TS ae 





Figure C.1 The Map Coordinate Systen. 





Figure C.2 The Aerodynamicist's Coordinate Systen. 
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The tollowing develorment is taken from [Ref. 6]. SOM geic 
Beuacion {linear momentum = avrpl S 


© 
Meena ccnstant mass (fuel burn act accounted for); 


t 


m dVe = mq + Fo + FE 


dt 

m =maSs of tne airplaae 

2) . ae = oe 
(2 j=the acceleration of Ehe alrrcraft in 
d : 

x Bie €Cabtn-ELixed coordinate systen 

mg =force applied due to gravity 

Fa =force applied by aerodynanic loading 
Pte =tOEGE applied py thrust 


This equaticn is transtormaed from the earth-fixed coordi- 


Mate system to a coordinate system attached to the aircraft; 


move = m(4¥a + @x Va 
dk dt 





(aN 


j=acceleration of the aircrart in the 


alrcraft-f1xed coordinate systen 


Goer —-rotatitonal velocity of the aircraft-fixed 
coordinate system with respect to the 


earth-fixed coordinate systean 


bee 





faethe alLove equation is expanded into its orthogonai con,o- 


ments: 
rh = mM (Uy oe *wQ) a m4, + FQ +A 
6 8 
MVe = mM (Va +WR —wz P} = WG Fay ai 
6 © 
ay =  Y) = es 
e Cw, LQ +VaP) = Ma, r Fa + Fey 


The above is termed the aircraft eyuations of motion. In the 
alircrart- fixed coordinate system, the components are shown 
merigure C.3 The next three illustrations show the trans- 
Bormaticn of earth-fixed linear velocities and acceleraticns 
Bee dlrcrait-rftixed linear velocities and accelerations: 
Finite rotational displacements do not act as vectors, hence 
the reguirement tor the ordér of the above rotations. This 
is demonstrated in figure C.7 Transformation of earth-fixed 
rotational velocities Poseomed break &— iixed velocities 
involves the following mapping. | 


——, 
& 


W= Y +6 + ¢ ={ transform >> P+ ae 


in terms of unit vectors, (()) earth-fixed is presented; 


a 


A 8 6 
: A A 
eens +g ua 


ne 
t 


Meoxing at figure C.@2, it is seen that; 


k t A , . A A 
2 = —sinG ls + cso ky = —sin6cL + cosd k, 
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Ne O= 





L —<- ee ee ee re ee ere 


Components of the Equations of Motion. 


Fagure C.3 


os 





rc 


~ 


7 ay ae 


OOO OE ee ET a) ON SE OP ae? Qe 


i 


ogee = aap 9 ee eee eed we ere ee cy er) Se re re SS ee eee ee eee et re SS eg SS SR rey CS) ee) Seen Ss SE SS reg 9 Sa ae 





| 


First Rotation. 


Figure C.4 
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TR ce RT a mm 


HORIZON 





2513 | 
DOWN 

eee COG tes =I We 
V3 = NS 
W3 = sné6 U, + Cosd We 
M., = cosO6 i, - sine We 
cua Vo ' 
Wz = sinO Ug + Cos& Wz 

Figure C.5 Second Rotation. 
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Xz, Xq 


(TIPPED OUT OF 
HORIZON PLANE ) 


dha = As 
Vo = cos d VS ae SIND WwW 
=e SIUICu Nn COS B Wz 


Figure C.6 Peni Eaeene ted t 1 On. 
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es ee ee Ge ee Dees cel 


= OS a a a Sa 


a x about xX 


ae \7—1 
ala 


{8 
{8 
aa 
oO 
G 
sta 
< 





- iene 


frgure C.7 Finite Rotations Do Not Act As Vectors. 


Meecnermcre; looking at C.8, 


A | A 
k, = sing \ + eos B Ka 


and finally, looking at the same Ligure, 
A - Nera: Suen hyo An 
Js = cosf Ja — sin ka 
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I sm sg a a 


Transformation of (()). 


EIngure Ca 6 


tan) 





Smestituting into {@ ) in terms of the aircraft direction 
mee COOLS; 


B= —snola+ cosa(singt, +eosdk, ) v ie 


A 6 5 
Coosd fa —singkad6 + la 


and this must egual 

—> 

m= Pr +¢ QA + Ry 
Therefore, solving fcr components, 


2 =¢ -sn(6)g | 


Q 


i 


eos (4G + c03(6) sin (B)y 


R 


—sin(¢)6+ tos(6) cos (P)\y 
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COtSClZDALDED COASON LISTING 





COMMON/ABC1/WX (1000) , HY(1000) ,¥Z(1000), 
f 7021000) , HV (1000) ,aa 1390), 
& WH 19094 7 42 oC 1000) . 
: RG (1000) 5 1(7000), ict 

CCHHCN/ABC2/XNEW, DEL ,XTEUP, XOLD, 

VME DELY,YT=E%e,YOLD, 
; Z2NEN,DELZ ,ZTEMP, ZOLD 

(COMMON/ABC3/VELON, VELOT, VELOO,N, 

NEW,UTEMP,UOLD, 
* VNEWVDEM DT YOLD. 
* WNEW, STEM P,WOLD 


SOnMON/ASC4/AG1,AH1,AL1,A31,AJ2 
SONtMON/ASD 1/AA1,AB1,AC1 
een wee, Volaliy, VOAX;VARX I, VAAX2, DELTES, DELIV, DiLTZ 


SeennNON/ASD3/PSILOT,THEDOIL, PALDOT 


eo RB DYE SINEN, BHENEW, PHENEW, 
Poel a it Selb, eo kOLD 


COMMON/ABF1/U1,V1, 11, U2, V2,82,U3,V3, #3 
CCMMON/ABF2/UD1,V01,8D1,UD2,VD2,WD2,UD3,VD3,#D3 
COMMCN/ABF3/UAC, VAC, HAC, UDOTAC, VDOTAC,WDOTAC,P,0, KF 
SOutCN/LOC/X1,%1,21,V¥1,LTR,LIR2 

COMMON/MN/ IBAUD 
COMMON/MN1/MINX,MAXX, MINY, MAXY, 4INX1,MAXX1,MINX2, MAXX2 
COMMCN/NAM/INAM1(2),INAM2(2),IUNR,IANK,IDEST 
CCMMON/OPT/IGUN,IPNCH, ,IEXT,ISAM,IMP,KER,IM?Z 


COMMON/PAR2/XGUN(/), YGUN (7) ,ZGUN (7), XSA4,YSAM,ZSAM,G&(7) 


VAZ 








, COMKO N/PARY/ 


A 
B 


COMMON/TAR/STA 


e 
R 


EMAX,HT 4 
RUIN, BERRI 


RGX,TARGY 


L 
id 


N,HT ida X 
Roy Ravi 


dees 


5653 





Ese 


EXECS USED TO DRIVE FORTRAN PROGRAMS 


C®EKSEEKEEESE CHEK SSE EE KEKRE SEE SEKKE SESH SER ESKER ERE EKER SEEKS EEKS EEK EEE 


GeleePIP| EXEC Aj 

Mer TOLLOS ING 2X=CG DETVES IBEPIP1 => 0.A.8. 17fAR84 = - 

CRRRRRERERE NEST EEEAAREERESE SKK STEERER ES TEKS EK KERKRAEEAEKEE AE EEE 
PraaCE ERR 

Brec GRA?/7 


PEeLCEDEF O9 DISK PICTOR DATA Bl ee P LRECL 80 
Mmeoeoer 10 DISK GUN LCC "Al (RECFAM F LRECi 80 
emeepes th OLSX PTS LCC Al ({(RECPM F LRECL 80 
MeeoDES io DISK PAR SAY Ai (HECFN P LRECL 80 
PeLSDEF 18 DISK POO] CATA A REGEN = LRECL 80 
MeeeDEF i7 DISK MICE CATA Al ({a@ECEM F LEECL 80 
MeeoDEF 19 DISK TEMP DATA Al (RECPM F LRECL 80 
LOAD IBMFIP1 (STarRrtT 


CEESESEEKEEEK SEEK EEKEKSKSSEKEEE SHE KSKSREKE SE EREKER EERE CREAR EKER ERS SERRE ES ERE 


¢ IBMPIP2 EXEC Al 

¢ THE FCLLOWING EXEC WAS USED TO DRIVZ IBMPIP2 -- D.A.4. 17MARB4 — 
CEERCESKAKESSE SSK THESES CREEKS TER SEEK ERASER EER EREKR KEK EREEE 
STRACE ZRR : 

EXEC GRAF77 

Ei>EDEF 09 DISK PICTOR DaTA A1_(RECEX P_LRECL 80 

FILEDEF 10 DISK GUN LCC Al (RECFM F LRECL 80 

PILZEDEF 11 DISK PTS LOC At (RECFM FP LRECL 130 BLOCK 130 

FILEDEF 16 DISK PAR SAV Ai {RECFN FP LRECL 80 

FILSDEP 18 DISK POO1 CATA A (RECE Ss F LRECL 80 

PILEDE? 17 DISK MICE DATA A1 (RECFM PF LRECL 80 

LOAD IBMPIP2 (START 


CPEEESSEKEK EEE SEEKS SHEEKRECHS SERSEKE KEES ERK RERAREERER ESET EE EEE 


EeGRAF/? EXEC Al 

c ee naa eae LINKS THE OSER TO THE GRAPHICS IMNPLEMENTATION 
ares 2 eed ores se cidecs ses ee ect eee bess 0044406 4004440408 00% 
finaCk ERR 

Roeaa ss puesta ldo ao RR 

GLOBAL TXTLIB MOODZEZH FORTSOD2 GRAFLIB CMSLIB NONISSL 
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GLEANED UP JOHNS VERSION I[BMPIP 


CAE FASSPAAET TH PERE HSHAHHE ADRES EAE KES EHRESE AER EEE EREE TEESE EEE ARETE ER HK EHR 
C MAIN FROGAZAM O4/CCT/32 VERSION 


e CGMmre THs St2CUTION CF THe ENTIRE PROGIAM. 
Cc TEE CU/CCY YERSICN IS ESSENTIALLY =ZRIC JOHNS! 
C VERSIC’ «LTA SOME USER FRIENDLINESS FEATURES 
e MEcae Meee RT tGs ATT SLIGHT SATa GEeNSRATOR IS 
c QNCHANGED FECA THE JCUNS* VERSION AND IS KNOWN 
Ee MCMPCRIS) THES iS THE VERSION IN USE BY DRO? . 
Cc SUL csc TRIAL LWeYeCLESS. -- D.aA.¢%. 164ARG% -= 
CK SVK KESMEKE SROKA ATA TRAE EEA AEA RHKRE SE FATRACKAKUKRE ET AEK KE KAARARAKEEK AE 
COMMON /MNI/ MINX,MAXX,MLNY,MAXY,4INX1, 4AXX1,4INX2,9AXX2 
SCMMON /JECC/ X%1,141,21,¥1, ITH, LIR2 
COMMON YMN/ IEAUCL 
,COBAON Ven MeO 2 00), Zz (200) ,dDG (200) , CA (200) , 8A (200) , VEL (2C0 
COMMON /BARI/ kDGT (200) ZOOT (299) «DCT (209), tnt, aie 
COMMON /EAR2/ z(2e ¥ £604 (7), ygou (7) ZGUN (7) ,kSAZ,YSAM,2SA4,GR(7) 
COMMON ‘/CET/ IGUN LE aCH, [2XT,1SA4,id ,KEB, INEZ 
COMMON YNAMY INAX1(2),13 ima (3) sts ik, LAWR, LOEST 
MBR=0 
MNUM=9 
TG) =0 5 
CALL 3EGIN 


CALL SCENE (0,0) 
REWIND 10 

SeOsaw THE ZIXZE GUN SITE S ENGAGEMENT CIRCLE 
EhLL GUNLCC (XGUN (7) «¥GUN (7) 4 65(7)) 
Pe a(reuNeves |) GC 90 


-_ = = 2b = ow ow oO ow ee ow ow eee oe ee ee eee ee ee ee es es es os i i ee a i se ee ee oe 


eee <) ab eb op ae abe <e! <8 ea ew ee <e S o e o e oe ee oe 8 ee Se oe oe ee eee ee eee ee ee ee a ee ee se ee ee a = ew 


Gane SEREK. (16) 
Cr50 =51, 


D 

10 TERR =0 
Te Geez Ne. 1). GOTO. 20 
GAEL XYPT 
ZGUN(I) =20. 
6610 130 

20 Garr «PT 
Glue Z VP t 
ZGUN (I) =Z1 

30 XGUN Ey ox) 

GUN (I) =Y¥1 


— 
pepe GUN TYPE 3, CHK FOr 3 KAN SEPARATION Fe BRIDGZ 
C-- = eee Oe eee 8 ee SSeS Se ee eee ee ee eee ee oe ee eee Oe Se eS Se ee ee eee ee eee eee Oe 2S eS ee 2 ee ee ee | 
PramhaGea tere aLtorCUNCAK (Al, 7 1, LER.) 
Peileaks20.0) GO TC 40 
CAEL ERREK (LERR) 
GO TO 10 


ie DRAW GUN ofTE AND ENGAGESEST CI aCle 


ad 


40 GALL GUNLOC {XGQN IT TSUN (L) GE ( zt) 
50 WAITE (16,350) dai heove % (1) >2GUMe( I) 


MER eADNUSER DEFINGAELE SAN SITE FA TESMINAL 


C= <2 ee oe ee ee ee we ee oe ee ee ee a a ee a ee oe oe ee we ew ewe ewe ew @ ow ee ow ee eee oe @ woe ww oo = 


60 CALL ECRRAK (14) 
PE (L1eZ we. 1) GO IO 70 
ALL X£YPT 
ZSAN=2 0. 
GC TO 30 
70 CALL XYPT 
CALL ZYPT 
ZSAN=Z 1 
80 XS AaAM=X1 
YSAt=Y 1 


-_ <> ae ae ee ee ee ee ee ee es eee se ee ee es se es a i se ee ee oe 2 oe oe 


S “VERIFY san Sheer eLeAol OG Mra WESTERN ECUNTART 


CALL SAMCEK K1 TERR) 
IF (IERR.ME.0) GO 69 


eee eee ee 3): 80 10 fe i... ee we wee we we we ws we ee eee we we oe we oe 


a5 





C DRAW SAM SITE 
CAL EG UNLCC xsas ¥SA4,1 
W@EITE (10,25 eos Sa 
Gor To i136 

C IGUN=2===> READ GUS SITES FROM DATA FILE 

Ce we we rn rn www rere —Ee—e eee eee ee Se ee eS eee we ee ee ee eee ee eee ee eee ee eee eee ae 

90 EF (TGUN, engeco Te 110 
nC 109 1,9 

100 READ 19,380). xSUN (Z) (1 iG 
READ (10,350) xSam, ¥ehu,zZ 


eee ae ee GD eee ee OP oe se ee es es ee ee se ee es ee ee i ee ee Pe es i es es ee ee oe 


on 
MEO GAW GUN SITES ANE EXCACZEXENT CI2CLEs 
C-=- _ eee 2 SP ee ee ee a ee ee Ss oe ae ee ee es es ee aes ee eee ee ee ee ee eae ee eee see eee ee ee ee eee eee eee ee oe 
m0 OC 129 L=1,6 
120 CALL GUNLCC (XxGUN (I) IS Uy 42) GE (Ey) 

CALL GNNLOC (xSa4,Y¥SAu, 15 
130 CONTINUE 


oe Mice G MeCN AGGEEIS LHE FLIGHT S4GLESTONES 


ee se Et eS eS eT TT NT ee i i Ae i i eh en tet he ee ee 


PTFAC=3.28094 
DGFAC=57.29578 
CALL ERRMK (15) 
REWIND 11 
140 MNOM=4NUsM+1 


SeClAD also TONES SRCA TEE DISK 


150 ih tT abo} GO TC 160 
REA l,oo0) A(ASU), See Eta orjeg) sotguNUM) , LTS 
Beet Ui). LS ao G0 1350 
IF (LT 8.EQ.1) IMD=1 
LiaZz=LER 
GO TO 130U 


—— ee cee ee ewe se es a ee ie i a i i i es ee ee ee ee es ee ie ii i ee 


160 CALL XYP1 
XK (NNUM)=X1 
Y (MNUM) =¥1 
Wo. CALE SYPT. 
Z(MNUM) =21 
VEL(ANUM) =V1 
IF (IM2.cC.0) GC TO 140 


C-=- ee eee OP ee ee ee ee ne ee eo ee ee eee a we ee ee we oe oe we Om ww ee ee we ee ee we we we oe ee oe oe 


C_COMPUTZ PLIGHT PARAMETERS AND CHECK FOR ZRSCSS OR USER COMMANDS 
Ve0 TE (ANUS -EQ- 1 AND. (LTE, 20.83. C5. LIR2~20.83)) STOP 

IP (MNUM.LEQ. 1) GO TO 140 

TERR =0 

ENUUeALSET (2 ©8 2) . 

HOE Ge heme 2), 0a~ (LI22.50.2c)) ANG. (1MP.NE.0)) GO TO 200 

TE {(LT8-£9-68) -O8~ (1782. 20.66) MBR=SNUM 

IF ((LTR-EQ. 33) 208s (LTR 2: H0233)) GO TO 230 

Pe (TERR =E9-0) CALL RECUR (TERE) 

IF ((ILERG*KoR.EO.C) AND. (IEZR NE. 12)) GO TO 190 

CALL 5 2R8K, (TERR) 

WRITE (6,390) 

WaITE {6 400) 

READ (9,4) ICOR 

CALL 2 52C4S ('CLRSCAN !) 

IF (ICOR.NE.1) GO To 190 

WEITE eae) 

eeO oe *) i ANS 

CALL 2824S ('CLRSCEN 1) 

IP (IANS.NE.1) GO TO 160 

Geno 176 


- ewe SP OP ewe ee se ee ese es ee ae ees es es ee es ee ee ee ee ee ee ee ee ee ese ee ee ee ee ee ee ee ee 


< 
a Bee Sc orONS ACCEPTED, RESTARI THE SECUENCE 
7 


90 Slee PTHFLT 


GO TO 1490 


Cae nr rn aw nr a 8 ee a a a a a a a a rw ree = 
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Selo iSeSeETION BoScTS TEE CALA 


—_ <=) <p 6 6 oe ee ee ee ee eo eee es eee ee ee ee ee eee ee eee ee eee 


BOO Geant SiGENE (1, 1CT) 
REWIND 19 
IF (MBR .GT. ICT) MB2=0 


=e «ee be <@@ 9 ee ew ee oe oe Se e® OD ee Oe ee eee ee eee ee ee ee ee ee ee ee eee eee ee eee 


c 
SBEGCCcPlete ages Tt Art 


—_<m «@ ooo @ eee eee oe oe Ow oe oo we 2 2 9 ee se es es ee es ee a a ee ee ee ee 


Le fict mop) GC TO 210 
ANUM=0 
GC TO 110 


—_——<—> =e om oP om oD a ee ee oe ee ow ee es a ee ee ee eee ee es ee ee ee ee eee ee 


—— <> <> «ew wm a ee ee ee ee ee ee eo ee ee a ee eee es a ee ee ee se a ee ee ee a 


210 ieee cmaGeee emer) <AND. (MNOS SE. 3)) ICT=NNUS-1 


—_ <6 op 62 em oe ow oe 6 oe ee oS ee ee ee eee oe eee ee ee ee ee ee ee es a eee ee a a eee le 


230 ELANK=0. 
Gack. Pp ISPLT 
LAST=[ 42 
(nL Ghee (LAST) 





C— ee ee oe ee ee ee ee we ee ee ee eo ee ew ewe owe ew ee ew wee Ow eww we ee we me em ew ee ee oe eee ow ow 
. Meer bi lGat FPARALSISSS rOa FLNal LeG 
Byee aNd ty aie Noaet 
GY=Y (ANIC) -~f (MbUG= 1 
Do=2 (4NUt)-2 (480-1) 
RA (ANU M) =U. 
Ca(4N04) =ATA SY Josh ey oS + DY **2)) 
rr Ciao sO. . «Othe Uae soem.) GONTD 250 
peace sae eS 
0 G 
240 ee bby Oe aa eee (OY 6Gis Os) ) ADG(ANUH) =1.57079 
EE Deere EO) Cn eect Di aba. On) ) BOGCANUY) =-1.57079 
Le Dile lel Os) Vedic. eee Ole HDG (asud) =3.14159 
ir Dela e iee Oec)oes ibe Dx. Gis Us HDG (4NUM) =O. 
250 YCOLT(4NOM)=VEL (MNUM) COS (HDG (¥NUM)) ® COS (CA (NUM) ) 
YDCT(“ NUM Se eee cee }*COS (CA (INUG) ) 
ai u)= wala i. « t 
= SZUOCLIANUS) =VEL (ANCES) *SI CA SUM) 
Peete atro vse © PTS LOC " IF HEa ALZACCN OR SMELESTOME COORDINATES 


C HAVE BEEN INFECT 


{ — ap ee 6 ee ee ee ee ee es se eee oe a ee eo ee ee es a es es ee es ee es a ee es ee 


Te eae eG) ean. (LGON°. NE. 1)) GO TO 280 


REWIND 11 
GUN=1 
@RITE (11,360) SLANK,SLANK, BLANK, BLANK, 3LANK 
DO 260 I=1,4NUH 
LTR=0 
IP (z EC. 483) LIR=66 
260 TRICE a Bs a0y ah TITER) 2 L 
5 Ta 
faite 11,380) VEL(1),458,3LABK, 3LANK,IGUN,IGUN, BLANK, 3LANK, IGON,2 
IF (IGON_.£Q. 0) GO TO 280 
DO 270 I=1,6 
p20 Ss @RITE (144369) XGCUN (I), FGUN (L) ,ZGUN (1) 
@RITS= (11,360) X%SAN,7SA%,ZSA 


— on ae ee ee oe ee ee es eee eee ee es es ee ee ee ee ee se ee ee a aa ee ee 


280 DC 290 I=1,4NUM 
Ca (I) =a Ty SDGEAC 
RAI) =BA(I) *DGEAC 
290 ADG(L) =HDG(I) *LGPAC 


TF (IPNCH.LT.1) STOP. ©” ES 
DEO OMENGUsEOs 2) GC 


ey, 





>) 


REACHED 


PGd 


* 
mH 


Zin eon 


HAS BEEN 


FILE 
UP e506 “GHARACTERS 
z 
" 
YOUR POOT/MICE, 14H DATA 


LS a 
Dara 


DIS 


al 
a7 iE 


R 
Cee 2r2r2err—ore 2 +e2+--- =o oe ew a ee ee ee ee ee ee eee ee ee es eee eee 
Ban Gos PROC FSS 1G 


REALE 


BOP 20 


S 


{ 

4 

' 

' 

| 

' 

t 

' 

' 

! 

' 

' 

' 

' 

' 

' 

' 

' 

' 

1 

' 

' 

' 

' 

1 

' Gm mOUUWHa IU | 

( hI = Us <i) fun 

4 no # m9 11 O 
USN Fog ZO 

' Teese ODIO 

' FH 4 et, eS Fo 4 OQ 

' “WID BIEN ® 

' ME OH RHO-G 1G 

' bag 2) CO) HO A 7 Fed 

A fv, wudti-g fr Hmm 

' 

' 

| 

{ 

' 

{ 

' 

' 

' 

1 

' 

1 

' 

1 

' 

' 

t 

' 

' 

{ 

' 

{ 

! 

{ 

| 

' 

{ 

' 


GO 
i 
ede 


= 
lad 
om 


us Eas 
2GH TERA INATION 


eye OO t 
a 


ao 


PREVEE® “Oa 
Cw wee me wwe ene eweamwee een eee 2 Cee ST ewe e222 eee @e@ ees eS es ew ewe eS es es Ss ew ew | ewe wee ew ew ee es Se See ee ew we 
DESI. Nh .2)) 
) 
SeNLO 
KACd AG 
A NCW 


-~ 
” 
Cdl 


Jy HOUMEHOE 

OO lmriHWOUNsSD 
FH MENUS 
DORN O-TANK 
FA PU O45 Fo % 


SUB Lt 
SUBAIT 
ao 


(Q 


DATA FIL 
ee a a ee i ee aw we oe ee ee 


Oe De 
my est « 
Me Mo 


Oo 9O 
fe Et 


OvVvov 
CUI CS bea 
Ph P44 
awd bu 
Ne oe 
ar et” 
oO oO 
BIVIWN 
eF, 855 
Gare) 
URUH hI 
9706 ae 1 > 
Oy Tea Oy ha Sa 


= 
= 
- 


") 


Paco) (2) 


4 ~-— 
me - 


o) 


AM2 (2) 

Cw-rnr--rrrre- ene ew eeoweae Ss See eee FT eee 2 SO SB SS SS SS SSeS 2 8B ee eS Se See ee es Se ee eee eee ee eee ee ee ee eee ee ee oe 
Tt us 
tT US 


- 
« 
-_ 


ore wa 
m—-ink —1G ts wa 
“= ==) WW t) 
IO Nu} uy uf) 
sm ¢5 304 4 4 
4 
) 
al 


E 


tye 
f 


ree EHH OOHINE 
FIOAtORM™> Exad 


eli ,e 10. 0) 
N 
N 
= 
A 
E 
x 
R 
E 


SUB 


— ood =” wo 
A * OODMM DinUmMnNwya 
HN HS HOHIOMH be Otdty 
—~ OH FEAL roar 
QO NCW s.O0O00 AF OAAE 1 A 
al) @ eDy ACF -ONT Bait fl 
N CeKCo iLBrEermcor cere s oS 
We Wie MeHMPTOOKTKMNIODKOO-Oc 
~® MATOS AMUN FST ITs PAIN 
et ene? Sage ee ee nae a Peete 

“T) WY 

“ORE R46 B44 Fe a 4 4h FH E464 Ry 4 wre a 


Gore 
me L 


<t,. td | 


PrERO ANT AFe NU Ben** TO TERNINATS T2P2?) 


TO 


i St) (wi 1G 

Hje = Yo “a7 2 
peo OO Oem ORS eee 
ODDO 6m OOODND . OH OH 
NM AWNOMIeo IVs NOW wD 
ses annum ss *& sun s**t) # U 
WOOO CUD COW £40 9€£410 sH 

~The ny “Tu “TR Ts 
G)0IOIR) bq E99 fy 2} {2} fe} 
HH HEOM HEME OQYHO- HOH, 
badd tJ BAP et et HG {<0 J 
04 04 05 09 2) 0 Fay 0 0s 0G Od J) SG td ee Ld x 
TEE CE ew Ose oe te ee oo) min) 


CYeCluR SC aS 


$10) 
*) TGC 
CNS 


A 
SRTCMS 
Crem 2 ew me -- = =e ew ewe Se Se SBP ew es |S Se SBS! ee Se SE eS eS Ser Se ee Ser le eS eer ee lS eee et eS Se Ser eer eer eww ler hlU SBP Ul eer lee Se lB el SP lee ee eet le SBP ee es wo Oe ee 








5 


“ 
ae ed 


Wis wi Vs. UF 

Cocina inimag dag ioagfy 
OVAQVVNOV OMOO-s 
Bey Peg Pay Peg Pee Prey fee Pr, Pea Pay td 


— 


ARruMurN 


Cali TC 


Omigmindsmam Wa, 
IHOQOUQVONVNOINONOO 
C7) Pea Pras fee Pea Pry Fry fea Pee fey 


GALE PRESET 
Creer errr ser--- =o a a ee eee ee ee ee a ee ee ee ee ee ee ee eee ee ee 
aRI 
READ ( 
CaLL 


= 
_ 
fat 
—=—_e ewe SB SO eSB SI SOS See Se Se we eS Se OT Se Se we Se eS Se eS See Se SE SB eee ee Se eee ee ee eee ee eee eee ee ee eee oe 


OUCaoe hue UL RCULL RE 
DUEe ee tLaeUT ROUTINE 


FOa2C 


DOAVDDOOVONDNIONDIVNOFTO7DF OV 
NDOEDROEFANMANOEDHIWI— NM 
MMMAMsar sata arsra NN WW 


GHOCSree ES TENATLION FOF OUTPUT 
EE 
‘a eo ee ee eee ae ee ee ee ae eae ee eee eee ew ew ee ewe we wee ew mw ewe ew ew ew ew eM ew ew eww eee ew @ wee ew oe oo 


6 
6 
e 
G 
z 
ere RESET LOWES AICS /O001 OaTa 


© 
ef 
9] 


300 
C 


c 
C 


118 





CHEER EMER EEE RK ERE RNR KEK EERE AKE RERRAKARKRRAEAKR ERE RE R RH S 


C SUBROUTINE BEGIN 
Cc Meroe senOli ih SINE GAL LZSS THE GRasbFdICS and xEQUESTS 
ross : 
eee gee tte as Cees ae eased aw ananetunn «2 8-UGKs 22098545 
SUBROUTINE BEGIN 
GCEutON SENS LEAUL 
SOrprCweroe 7, 6GUs  TENCH, LEXT, [Saad ,.t8F, AES, IAPS 


C 
Gea eaD USER OPTIONS 


C-- wwe ewes ewe ew ewe ow ewe we eee wwe @ Ww we @ Ow eww Mw ee @ owe we ew Pee ww MW ew ew ew ewe ww we ees we ee ewe] oe 


CALL ear (Grace an) 


10 REEDS (fo Pb ces 
LF (a i) S99} aude (E9UNANE. 1) AND. (EBON. ME.2)) GO TO 10 
GAlL PRESS (*CLxsC33 'y 
TemtrG ONete. 1) GO TO 20 
HE feud 
Ww pw 
READ ert T4eZ 
GEL satews (°CLASCEN ") 
HE der bas 
IF ((2ab E20) -AND. (IMP. NEe 1) ) GO TO 20 
Gare FEPGHS (°CLaSCEN 'j 
oH Sata 
PERV (KR ER< Ne. 0) -AND. (KEN-32-1)) GO TO 30 
CALL PRICES ('CLaSCat ry 
uO WHITS $8 $120) 
READ (5,%*) IBAUC 
IF ((LBAGE.NE; 0) 23ND, (SAUD. NE~1)) GeUTe U0 
GALL PRDCES ('CLESCEN ') 
50 WRITE (6,130) 
READ (207) <ON 
ee, ((AONS NE. 1) AND. (KOU. GES 2) ) Go tO 50 
CALL PuTCMS ('CLESC2% 
WameaOd cise 1) CaLL CONC 5G 


ew 2 eee SS eae See 22 TSS SS 28 SS ee 2 ee Ss ees Se eS SSS eS SET ST SBT Ss SSF SB SE SSS SSPE SSeS eS SBS Se OS Ss 2S eS eee Ee 


CaLL oSINIT 
GALL GSERSE 
RETU RH 
60 Pome atee( 20m GuUNSsC-DISK FILE; I=TSbwl NAL; 2=PRESET(GUUGE SET OF GUNS 


I 
70 pOaaat Coen ee enuclCS 1 WiGalcs AAVING TO GO OVER TO THE ALIIMETES 


= Mitt ietes CEE GAAFRICS AND CLEAR SCREEN 


380 ; ORO AL Go oHeGUN/oAG Sits ALTITUDE: 1=FIZED TO 204;2=USER DEFINEASLE 
90 Pome ce cUdmAIRCRAFIT MIE LESTONE-INPOUT: O=DISK FILS; PGES) 

100 meme oodere men CrECK ING: G=8@ CHECKING; 3=CHSCK FOR ExXEORS 

110 Boo eet SELECT 120) BAUE FOR THE TEM3277/TEKO18 TERSINALS.) 
120 PFORMAT (35H EAUD SATE: 02300 EAUD; 1=1200 3AUD) 

130 Pieeumtes(9CHer LiGHT © GAME PASAMETERS: 1=DEPAULT; 2=USER INPUT) 


Lig 





CER ER RAKE £E KEKE SEKEKKAKREAKK EK KREK KK SASK SRK KKK AKARKARKRRKRKEATETAEKHEEEKEEK ER 


C SUEACUTINE CONCHG 


+ { ' oO | 
% ' i i 
+ ‘ q ie ‘ 
it ‘ 1 = { 
+ ‘ 1 c { 
+ \ 1 Oo ‘ 
+ t ’ i { 
f.} oH 1 { . f 
= WN ' ' oO ‘ 
Fe # 4 ' ' wn ‘ 
& «tc { { = 
Sot F: ' ' - 
fA & { 1 > ‘ 
# . 1 1 + { 
ip ea 1 ' - { 
PI { ( - 1 
(5 % bi 9 ' oO i 
= * Pz 1 ( ~ { 
Cl %& ij$+M ' io 1 
wt. aD { 1 & { 
O ¢ Wwe f ' OQ | 
*% CAs f { —N ! 
ma o6UtClCUTS CON ' aa t 
Oo * ae ‘ . ' 
eH *# O77 1 1 oO t 
ct £ (cary | t eae { 
4 * 7 1 1 -c 4 
bl == | 1 . § 
O * «SH 4 { OD ' 
O rf as. I t Fed ' 
* “F305 4 t i ' 
uy aX Ean ' 1 Os ' 
teu) & - f { ks 1 
Om Ae 4 ' an 1 
tele eM YE 1 —_ © ! 
mo kt a | 1 —O t 
eC OS ' tw 1 
71M «CfA 4 1 ™- a 4 
ric 3 ' oO ’ 
2aN4 os | at ! 
Henh (- oe 
tn, # wi § > ‘ 
SD %4@ Ensirty { 20 t 
Ome hihi29) 1 - | 
moe Hing MO a] 
Lorde od ae | ~—y igre 
De # Cyc Fat 1 » ~ ] 
Ulett on 1 1O el 
rik eri ft t tien t4 { 
Noe ces ft Os ™ as d< <a 
HF] we ed Fp | t wD “~ H “% ~ 4 «f - N “4 
sor4 ete Wtt-t at ] 1 ery «ft 21 ~ | x 23 7 4 b> 4 y t 
Hu) yn —~s x3 a -t =: 23 tis is <t oO ne t rt m f 
xOUM2ANIO MAODDQDOQOODOZ>?D« N OV OF OM OY om OD Om Ot Off OU OU OF OF OH | 
+ mMAm I! HIE NDKAMANOF ae © nn ey <= N ry Jt Nn \O i mo an oO = 
we et Ge get PE mONNNNNNANNN AIO Nem Nn Mee Me OM OM OM OM OM OM OM OM OT OT f 
HMC POE Se 8 we es ew +H HIO = Ht = wtt at —H ut wh = Ht = # ue 8 = 1 
HEANNNKPFDEODWDWDOWWOW DO © OH WW DO WH D0 CWO'O0 D0 WOW SOW SO” SOW OO Oo Ww wo} 
* &4 Gls ee oe a aa pan nM SN tt AN AS a Et et 
¥* D000 IME IGG IMIG IG? “OC ff OF} on Om of O81 OFF OW OF OF1 OFf1 Of} OF OF OO} 
HOGS FIST oh ft EAE E464 EE EEO EE IQ HQ IMEI SEQ HEI OM ROQHHOQ HHO HHO HQHHORHOHHOR | 
#SQ55 F955 PHP HHH AHHH Het HD HQ We Hed HS Heo RIO RO HD eed HS He Hf 
*OOUD I ICON Mmm iyO SIRO RIM OLWINOInINOMRIO MW OMWO Id OMmhiO MYO MMO MH Om hOmiNng 
#NOUUL J fd | Tere Re Ee OE OHO EU EGU ESO RIN RUG RSA ROMO REMU RMR MOURA Ra mMNY 
+ te] = 1 
* 1) ! 
* tog ' 
€ ¢{ Ow} oO oO oO Oo oO Oo 
* f {Oo S oO oO 2 oO S oS oQ oO La N my 2 w 


C VALUES 720" THE DISK 
ZO 


oe 


we 
~ 


N 


EWIND 
EAD 
EAD 
EAD 
Oe TO 
Cre crrrere oe oe ew wee © ee eM eww em © ee @ @ we ow ew ow wee wm we © ww ww ee ew we = we oe ow we we wwe ee we ww oe we ewe we ow oe 


C READ NEW PARAM 





Aiea 
oo ow 


Route 


ING 


r 


aad 


ClLUAX,WL,o PONT N,GMAL,AHIMNIN, ATMAX 
al 


t 
Nw 


TO 


Qo 


RUINAL 


-_ 


dnd 


> CH Disk Av 


= 
= 


TMAX2,TARGX ,TARGY 


FARAMETeS VAld : 
C-- wee ewe Se Be Ss SS ee ss ee eee ee eee eee ee eee eee eee eee ee Se eS eS SS Se Se Se 2 2 SSeS Se See So 


C-=- -_——n ae =) ep ee oe Se oe eee ee ie ee ee ee eee ee ee ee eee ee ee eee eee ee ee a ee ee es ee 
SAVE 


C-- wets Saw ewe SS SOS SB Se 8 OS VS SSS Se Pe OOS SOS SS OE SSS Se eS SS STS SE SSeS Oe 2 2 2 See eS eS 


SeNHITE PARAMETER VALtES TC THe T 


Cc 





oO) e e 
= ta we Eo 
‘z ST my CT 
9 <o) e -- oO 
awe [t4 | 4 WM Oo 
u} tJ | <a s) C) 
bi oO a 7 CS 
OAK UO -~ 2 
aed ones Cu 
erm iA! e © 4 
tine, ie) mf 1108 Stacie 
pee STU) Pa) 2) » A & 
HQOAN Ola in) Oy =i at 
MryDhder GIF 7} 4 e+ 
O<tcVer “i fa uy aw we SD 
SSFHNDO pice elie Od Q Q 
WVedisee EH i ~ ty U) 
On~—AD Hat aus Es ” 
Mee PATH RMI cy ~fty ¢ e 
«Eb<¢ tt +d E¢ O-12 ae] cqyY4 {J fF AQ 
fart igen) fat Te Lak -=(a\(Yajen tea) (@) 
ors t= ee rn od Ou w fa wea SQ Miwtisx) a © 
ee AHA Or E4tn HO MW F1 WH Tata) 
ari (OAM Slop G DAI? Owned 4 
Mood CO-R yt Fa tone us Firth wees >< 
730 =Or ly Fre as (NF4 44 HO 
{4« CU. fit Werte oe 0] Rafata rticQayoy re og 
{Es wl eehOQ MEK = Mm O HYAMOem EGY SB te 
a Omeilers emt f4 “J “Es NTU ELIHDO uo 
Sef) sted 2 if) eeh? a. 4 os a:NOHI CG 
a Het M D> ver IL) QO°dnyed sgudfaetia OQ « «f 
3a mz m Fi r1tH rIOOAO $IDewAfeo mt GQ He 
C3°Lm i 724 Wa eek bra YnND4 GB bIAMGLIs Fe | 
erttD CH 2 rE btitubee, CRITE UOT IGQE! 1 e 
Alto ee BEA EA) de OPH A UG E4O CO) <td teta (% 
hi sd eG NOGONAN HAN WwW MOUSE Oy 
Fle Mtoe SMOrVOenyOr aH MER ctQ M& Om 
«ts ff, F4 O 4 Ahin-n-ta ae 4 «fz: 
tus >> ttidder TS OO Ftectuc J Ur} er frglrd 4 WO 
Mu 1IOKRIOU Nd yg OO FOSS SMO mide) rm 
“fl G SIVIUEtC cre -ZHeI eS Sye, MS WIA Mla 
ried et =] © —@ et) 4! 9523155 x EA t—n“ntdw Fr Oo 
Te «fe MAOH ad 5%. HWikHHe 1 OBR O.a waN 
e548 eD feglts 0p QUO pS KES TS > Tht og IG MH ..£ 
SEO Oey 2 AY eRe Crete fetid eg et Qq 
oxi WO EY CQeeuss74) MwA} EA "IA 
+5tu et fH fH Jug >t ra tatty 
Oy WIN HetQcemominmtsinmMl iwmnimegotm Nesey Diy) 
Cdti (Lb Heer FS Dt Hb heath aie h epee ardiea trp tsaeed 1 
HEB WWM Eee ct babes tert (uo Ss 
~~ ea RPO eae A OLAS 
Zany Seed as) WOYUV DON em LD eT Dest afe] Pett PwINIF AAS: 
WU © 
es See eee SSeS SSO iC nis 6 CUS 
Se & MNOOMNM FANE OHOVOMEMNM VNWrMmNIrm wow 
WOoKnKoO NWAPATPOnaTFAANCKANAWN MMOAMMMU) Frew 
meme, prea wee Sormraan tree cee ere rer acne, et See eee? Se ner et megane! Seng? —th 
ee a et fry 
a MHC HERE PA RHEE RHE FHF 4 pa Pee Es EYE 
SCV V PIS ed eh eC ch el Le LeheheCeteCeh xO eQeg hatte ie ag 
WED BIE) MEAS EFI HNMR MEF 
Mme HIAH EAB Gg MIEN Bom Noses WMimingmasmdoay mi aA 
mwmAamMMIQ ooovugd OVOdV00OV0900 oOVEe9000900 O 90 
COG Ce OG fins Fg Cay 84 ey Fhe op Ce Pee Een Big Teg fits Pg rg Pen Og pits Pg By Phy fay a lty Pre nine = fry 
vo a c— i 


) 
FORMAT (6F12.4) 
ENC 


So DoOPo009? ODd09D300090 20007000 Oo © 
@w KHOMeAMF ME DHIKANMF? MOPrnHnor-nN - F 
= TmNIANNA ANNANAINNAMMMNM AMMNANAsSt FSF =& 


Ve 


450 





ROKROETARKAKHASKAKRAAT HRA OKE KECK ERE ERK REHEARSE REE EE KEK 


Cex 

eS SUBROUTINE SCcLNE 

c Hots weOULiNE DaAWa LHE ATCACS MAPAND ASSOCELSA 
cc 7 

Cc 

c 


Prscie ys. DU ar NG BESET IT CET ais To oe. Mt wie 
TONE TEE USER WISHES TO RETA 
RARER SRHETHEKRAARHERAKHEKAAEAE AKEEKRAKB BAERS Sa Gee 54 2 INS 8 ae Wiss « +4 
SMEROUTINE SCENE (1aC,ICT} 
COMMON /¥NI/ MINX, SARK, ALa¥ ,MAXY,SINX1, MAXXT,4L9X2, HAKX2 
COMMON 7ERRY YKEZS (3) ,AKEaY (18) 
COMHON YSMN/ LEAUC 
{Coton JPAB/ X (200) , Y(220),2Z (200) ,4DG (209) ,Ca (200) , 83 (200) , VEL (200 
COMMON /TAR/ TARGX,TARGY 
Basu Gx cy 
P@eres tL 81Caans (20) 
Tc7™=9 
C £8ASE THE TEK618 SCREEN 


CALL) GS lho 2 
GALL USTERMS 


C----- —_- =<) eee we = ee ee ee ee es ee ee ee ee ee ee sae ee ae ee ee a ee oe ee ee eee ae ee a 


Peo er ON Se eo tboask ANON GUN/SISS POSITS Ox FILL EN MAP ALSO. 
S 


-_—cn = ee oo ao oe) oe ew ow ee ee ee es ss ee se es ee ae ees a se i ae a see ae ee a i ea se a a ee ae 


GRITS (6,100) 
READ (5,*) MAE 
Veen © “EQ a) Mipleweed oon 
@RITS 5.39) 
BEAD (5, *) £Ct 
E Gein Facets ('CLacca: *) 
C DRAW THE €,Y MAP 
peewee Urs) ae o5s F,Y PATS FaG4 FILE 09. A -2.9,0 INDICATES 
Bee PCC erie. 005,70 [NLICaTSS A GOVE,ALL CTHER YALIES AzE 2O- 
C Bene RESULT IN & cSAx TC Paar soryt 
¢ ME-IMPITALIZE TRS IEXE1S8 SCREEN 
10 CRLL DSINIT 
Smbuesry (sbyx, MAXX, 16000., 12CCO., 1) 
LF (432 -EQ. 6G) GC TC 40 
REWIND 9 
READ (3.20) Gx Gia, 
20 REWO NS -eO\ Gk GY 
GALL GBMOVE (GX,S1) 
30 en (01 CON ex Gt! 
IF (Sk ~11--1) Beto 40 
MewiGy.Li. 0) CO 10-20 
Gare GEDRAN (Gk,G1) 
; GC to 30 
C Magk THE TARGET: GUNLCC FOUTS A + AI GUN/MISS POSIT AND CIRCUMSCRIEES 
40 GALL GUNLGG (TARGX,TARGY, 150.} 
aa Garr GuUNlee (TABGY, TanG 1,300. } 
Cc 


DaAW TIC MARKS EVES Y 2000-3525 


=.) Se eee EE ee ee eS == ow oe ee ee ee ee ae ee ee) ee eee eee ee ee eee eS ee 


DO 50 I=1,8 
Iw=2*L 
C THIS ELOCX DEANS TEE X-AXIS TIC 4ARKS 
CALL GEMCVE (1#200G. 1000. ) 
GMEE GEDSAA (1*20C0. 
GALE GALITC i IW ,2,CHARS) 
Cale cbeHAg 1 E*2000..0. , 2.50.,2-CHA2 5} 


MeerurS ELOCK DRAWS TEE Y=AXiS TIC AARKS 
Cc 


_—ap a ee a a ee ee ee ee ee ee se ee ee ee ees ee es ee ee eo es es ee ee ee ee ee ee ee ae 


aT 
ea, CHARS) 
S50 *2000. 2s 0's Pes CH AadS) 


4 ' ( 
-~— 1 1 i { 
= ’ ' ! 1 al 
i" ' \ ) ' os 
4 1 ( ( '— = 
* ( ( i tu 2 
EH ' ( ‘ { —4 >< 
males ‘ ’ ' 1U 4 
t+= ' ( ' pHi wm 
" ) ( ( Uae 1427 
Ae ' ' ( S| ©) 
bisé { ' ' 1s 2 
E4 +c { } 4 1 fx} ox 
bey | ' ( 1&4 e+ 
uM § ' ) tu fr}. 
‘ ' 4 tt <=> 
Ia ' ' pH 4 Nig fie 
OOo ( ' tomy ht 7H ‘se he 4 
NH} ' | ' ‘> —N eet 
a { ' tate Ww (21g 
= ' ( ;ore aN non 
t4u) ' ' i a +41 Tr] 
(sy ’ ' (<=«“) — fut 
wa ' ' ~oar) WD O 
pene Te ' ' g try t E Tin Ort 
ome ' ' ~iy tO =m b+4+2 
wrt iy] 1 1 roa eet 5% | 
eFIQ ' ' ' 109 uy s3H4 Ears 
Va) ' ' pra nto oo a 
OO ' ' w” f <—_2 §05 —-f40O cH 
ru os ' 1 (G 1 ! 14 nt es 
a>4 fu} ' (- t $4.4 eet [) 
ee NY ' to. Be IaIA iN > Dee 
w= ' oe U pois on os oz 
vic> © 1 a) . {feet U “OU es ~ 
ory f oO iN ry ce <c 
- *N } tN . eae ow Om 
O71 ‘ tN ® tas Ores aA 
OM | . OQ pa ° OD e 
N << ® . E+ ft) eD fat~ 
ANN » ’ 12> ~~ 8 1QyD +O -2O 
+ nN ( un Oars) =. () Sa) oO ~! 9D Hm 
mn 9 ' (Oo * +6 aaa EN 6 On 
a MN ' ~= Oats O-~] e4 HN UO 
hie © j =—Seoer LO © ©) 1) oO a 
moO e ‘ is Oreo “Ole <> ‘Tl oe 
er © { {mH ow ~ strit Or-o Lyd 
Uier =F { jc 7 SCH eetUte Wr h409 
coe ' k2 Meee M9DIOQtIA mee 7 -¢ 
ones ! 1 * WHe MMINAIS Noe ©. 
4+OoO ' Ce er ~ eo HH PME KS +OO —_ + 
Mme IM EXKNOMMO HHI Ie <r CEH 
(=) 2a q ied 1 = eee | ’ oo] ooti™ 
NOH (HI Ho 1&1 OUNOH oO 
— NIG ahd (Gly saeyetizrOUaold el my ee NEM Cert els 
emery {FI Seti wc ye Powe OU 144 C0 OO 
ber uot gry NANOGHErOGI OF, em im Os INCU 
Me UU be eit 8 OO a) Ont ee OO fu ae 
MMH HHMMWAIes JF OEY OME QHOM {OHHHMM MN 
A> ss sire DOH ye NOD aS | Fa ( Casr es1eOOUD CNR FEE 
tit wu 4 oOo S gH ou “Gen -t 
FY FT Pe TBD tes FD aa ee 1 Fd 
WWE aed eG gp ed MMmOWQ YAMS MmeO 
load Sei oan aoa | al uanaa— *TetLHRIOOOm 
HHMRUOU UU EE 4 PUANVYVIVAYVYN 1 1H F2 OU AU FD 9 0 Pg bt tg td 
! te | {da 4 rc 
“a | 'o | 
(4 { << 
bo 1714 > 
' oO ot { ooo 
YUYUU wo —-UUU caonrm 





SKSSESCASKKK SRASKKEAASSOHSRAHR ERE REAR SES AKT AEE RERAMRERHEKREREKEEK EKER ER KARE ASE 
SUBROUTINE WIN 

VeVGe kod oA TO. AX 
ENA oho mak ©ON THE 
See Se nia te ie 
x 


Or3 
) #lus- cord 


c 
C 
C 
oi 
S 
= 
Cc 


+ nin oa 
#5OIO Hi 


ORAVEKBARERK THK DGS 


SUBROUTINE 
COMHOK 43S 


Me ttriomo 
+ 


ait 
tk H usd oO 
= 


b4 ue 


Os" ctnee et Or 


we ee ee ee es ee es es es a ee ees ie ee sa i ee es se ee ee es es ee ee ee eae es 


Ope tele to ek 
Win os I I er 


? 
a 
( am op a ee oe ee ee ee ee es es we ee ee ee ee ee oe es ee we ee i ee a ae ee ee a ee ee 


cnr 
aD 
ra 
ie 
+ 


Oo 
Q 
Re 
ie 
Cite bat tata 
qt 
aoe Gial eis Gisiala 
Bem mwa 
ovo Io 
Hutt O + & 
tH taki eb 
ee) ieee 
wed od eed mace) 


QR ad 
MRrAAADA 
“2 $11 2k* pw B- Oe 


Sih eit 


124 





C RK HERR EKER E RR KREKE AKER REE KER EK RRR ERK RETREAT TREE REE EEK KEE OK 
C SUBROUTLIUE GUNLOC 
Ee MOL SMSteESOUTINE ERAWS EFFECTIVE FIRE en CL RELES 
Cc WeGUNDMINe OBPrGNSIVE AAA EATT seigsS. IT ORAWS 
e M SING wALoRIN «<a€ICd aAlAzCuaAtT Pue-te AUST Ane oe eae & 
: mcCma aLNG OUTSILE @Hi€Gd TEs Pres 3 AAA SATTERLES 
Cc wos tees PAC Fo. 
et 49 sees 2c Se tek eos eh age cle ae tt 2 4 98 Sead + 4 44s oe eH Res oe Keke x ke A 
SuUeRnOUL Ine GUNLOC (GZ,GY, 3A 5) 
SOMMON @VeEN/ ISAUD 
SOerOee sly MN  SAAK, SLNY,MAXY,MINXT,SAXX1, OD CPL ray C2 
MeaGeG xo look 7 bY 
=GX 
Y=GY 


ab wb ee ee a es es ee ee ee ae se es es a ee ee ee ee ee ee eee a = 


C 
C IDENTIFY THE MAP AND FLACZ A '+' AT THE LOCATION 
Gall wil (M0Nk MAY, 18000.,12CC0. ,0) 
CALL GEMCVE (X- I-61) 
CALL GBDBAs fk+75201 
WiC Vm, £4 75- 
SALE oC hOGie = (2, 7-75.) 


A Meron td dPoe Ce STSFS TO EE USED 


ISTEP =3 = 
IF (RAD LT. 1600.) ISTEP=o 


C-= <> a ce ee ee ee ee ee ee ee ee eee eee ee ee ee eee ee ee ee eee ee 
CmormAwes GIRCLE ARCUNT CEE SITE 
DCmloweie 3,100 ,1STES 
ANGLE=T*C.0349C7] 
=RAD*CCS (ANGLE) *X 
PY =cAD SSI N(ANGLE) +¥ 
Carl seaove (0% +1CG.,2Y) 
1U GALL SaOO0RAW (Dir 1U.,cf) 
5 Donen des ORG GUNSTTeeynD POE=-UEF LIMITATICN 82465 
Weeecew re PU OUGCS CAND. [Y. bb. /220.)) _ RETURN 
CALL GEGARC (300U., 3000. ,X,Y, ley lege 
4 CALG GEGARC (600C.,0000. Deepal laters «) 
RETURN 
END 
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SUenOgTI Ne £Y Pa 
CGs40n /LCC/ erie lav i, crs, LIb2 
Ceara a ENT/ BINA, ARK, ATM, HAXY MINT, SRK ee ee go ee 
CC4UMON /MNY IEA 
Cc CALL BELL 


eee ee ee ee es es ee oe ee ee ee ee ee es ee ee es es es es ee ee 


See LASH JAP AWE Gert 4%,% ANC THE FIRST COMM AND 
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GuUvmary (Mrux,¢8%%, 18000.,120C0.,1) 
ic 3 POT heist 1,28) 


)- 
wER RK 


CERSHORHBPERKSTKKHORKH KARRI RAK EKKAARKK KKH ERKKREK EK ERK RAKREREKRKK RAE RES EAE T EE 


ee SUBROUTINE 2VPT 
(e Poem oUEnOUl INS Crlatno If ALZITODE ANO, DEPENDING 
Cc Ss ESNCOLS TANCES, Plow GbUGE. ¢ OF THe DesrGlalsl 
c = Cla 
Can taneeenannecauas cise sk 
SUCBOUL ENE 2verT 
COemovey  CCy oA! li,Z21,¥1,1fh, LIZ 
Como o/ ANi/ es AK pA MTN <1, Take), CENA OAC KZ 
CO¥MON fun/ LEabld 
c PesiewGkimocarna ask GED VEL,ALT aAbE THE SECOND Code and 
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Cee EKE MESEZCEKRESS SR ER ERK KESTER RRHKH ER THEKREREHRERKRTEAREKR EEK EEE KE ER 

¢ SUBROUTINE SECT . ; 

S THIS RETURNS AN X-¥ PAIS AND A COMMAND VALUE L1 

C THE SOUTING ALSO CAEATSS 4 DOT AT POLST x,t. 

C eK RE EKRKEKSARKAKHEEESE RSE HH REEEKTSISKESREK SSS SK RERKKKEKREKEKK KEKE REKER A ED 
SUBROUTINE SPOT (X,¥,L1) 
BEALE IN; ris ccs 

; INTEGER*4 L,4,CUT,REY 


ann Deepen @Baew eS @ BP SSB OOD O88 SBS Bee w2seeaese2 2 Sees eS SS Se See Se eee eee eee eee ee eee ee ee Se Sr ere SP ee Se ee a SE oe 
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10 GAriwG css GC (hl ekEY, ih, = %) 
Gane ee ete yon ke 1) GU) 
OCT=4Q0. 


Sahn CHS SPOT 


Gen Geeccn (ECT, IX, 


1 

f=ry 
C CCNVEBT THE CCAMANC TC TEE PACPER ZORMAT 

L1=0 
ie a) i=o5 
PemOUce eG. 2) Li=co 
IP out 5e-3) L1=82 
I? tours 2624 Liz63 
RETURN 
END 


CHE RAR EERE REECE DEAE KE SKA EHR KK EERE RE PRM O KRESS AES RRR KEKE EEK 
Se SUESOUTINS GUNCHK 
Cc TH 


eee aane Ce2e eGo DOCnt OWS VaGALNSs 
oes iy oo aba ee eure boys Lae Ex ee oe boa en 08 2h 488 Oe 
SUenOO LLNEeGUALCHA ({%,%, LExB) 
z GoOuNION /iskK/ TAGGS, TARG Y 
a GCOMPUTESDESTANCeE IC TaAaGeT 
DIST= eee ae 2 + (YT A&GT) **2) 
LEetDls were O00.) IERR=13 
Re LURA 
ENC 
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C SUBRCUTINE S AMCHK 
C MiSs SUGROUTIAE Cuz Cas ae VisolLe comp maAc EEN T 

AGAINS] Gas FALLEN ITIATAGN S 

CHE DOR ORE REE KR ASERER ED EEK DORE DEKE RE SDE RERK ORAS AER R KORE EAE REE ERR KORE K OR 


SUBROUTINE SAMNCER (X,1E8R) 


ITERR=0 

IF (X .GF. 6000.) &SETURN 
CALL ZRRMK (13) 

LESR=1 

RETURN 
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5 SUSROUTINE ERRUK 


c 
Sr eee ea cee a ved ta hoc $e es Senet bat oh xh oe ce Sheen oak os 


SUBROUTINE ERRSK (LEE) 


COMMON YMNIY MINX Oe ee AK YM AN SARK MEL? , SAX X2 

ee ee 90), 2 0200) , 296 (239) , 58 (200), 24 (299) , VEL (290 
1) 

COMMON /EARI/ XCOT(ZCO) ,YDOT (200) ,2D0T(200) , “Nua, M8R 

COMMON /ERR/ BKERT (3) ,AREGZ (15) 

Memena sGre 21) GO TO 2 10 


— <>  ee  e  e es e e  e e e e e  e  e e e  e e e e e  e e  e e ee 


—. a oe ee ee ee ee es ees ee ee ee ee ee ee ee es ee oe ee ee es ee ee se ee ee es ee ee eee eee 


CALL AIN (eta nen cy 2 Oe, leas 1) 
CALL GSFRCE 
GC To (10,20, 30, Ponsa 705 GG7008 100-110, 120,130,140, 150,160,170, 
1180,190) , IRR 
10 Q@EITE {g 220) 
co ro 206 
20 WEITE (6,230) 
GO To 20¢ 
30 @RITS (6,240) 
GO TO 20C 
40 WEITS (6,250) 
GOTO 200 __ 
59 @BITS (6,260) 
GO TO 204 
60 WRITS (6,270) 
GO fo 20C¢ 
70 WEITS (6,280) 
GOmro. 206 
30 WRITE (6,290) 
Gono 200. 
90 WEITE i 300) 
GOlTO 20C 
100 WRITE (6,310) 
GO To 20¢ 
110 WEITS (6,320) 
GO TO 200 
120 WHITE (6,330) 
GO-TO) 200 
130 WHIT= (6,340) 
GO TO 210 
140 WRITE (6,350) 
150 Gree 46360) 
Go to 316 
160 WRITE (6,370) 
GO oAG 
170 WRITS (6,380) 
GO to 206 
180 WEITS Aen 390) 
GO TO 200 
190 WRITE 4g 400) 
Qc Tr 16 
200 WRITE (6,410) X(MSUM),Y (MNUM) ,Z(MNUM) VEL (MNUM) 
210 £BETURN 
220 PORMAT (253 MAXIM0M ERAKING EXCEEDED) 
230 FOEMAT (15H MAX G ZXCZ=DEL) 
240 FORMAT (123 ALT CG LOW) 
250 PoORMAT (138 ALT TCO EIGd) 
260 FORMAT ($4 STALE} 
270 FORMAT (158 PCE-UE TCO LOW) 
280 FORMAT (134 BME DECE LO«) 
290 PCRMAT (12H BME CEOE 42) 
300 PORMAT (15H ZC FAR FM TGT) 
310 PCRMAT (17H HEG>S CEG TO *GT) 
320 FORMAT (19H PINAL BUN<2.33 SEC) 
330 FOBMAD (21H aC HCRIZCNTAL 4OTICN) 
349 «© BORNAT (174 TOG CIGSz tO TGT) 
5 PCBMAT (23H ENTER MISSILE LOCATION) 
360 FORMAT (254 2NIER AISCRAFT MILESTONES) 
370 FCRHAT (208 ENTER GON LOCATIONS) 
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CER RERRKEREKE REE CHER EKRARAR ESA AKER K RGR AKERS KKK KE AKERAR KERR K RR EEK KEKE ARARARKEX EE 


E SCBROUIINE ERRCUK 


Poros UreoUn EN emrVALONT ES THE SLEGUT 2ARAMETERS TO 
Pie va ln cee en.) he sbes GR ED US DTN LarloN. LIMITS. 


c 
CEE SHEE SERRE EE KRKAK ARETE ERK REKRE SKA KEARSE SHREK KARE RE KARE EKER EK EHD AGTEK 


SUBROUTINE ERRCHK (IR) 
Dime eh ee TER 


{ConsOU ea et (2 
Commoue Zena t/ ADGT {2 Co) ,Y DOT (zUO Ge (eek ee Neer cain 
CCMMON 7EAR2Z/ 2 (36d) ie i : 
COCSON /lae/ TARGA,  oanGY 
Sovotmy ran oy Ooo b AC Lich, CLAAK,a#L,.% AxX,CDO,COK 
Comune, ARU 7 AEE MAA, OG. OE A, At CAA SPD SLU, GUaAk , 20U0DMiN 
Bara - OS AV/-1./ 
ee ey = vue) 
DY=TARGY~-7 (ANUS 
De Slt=50n 1 (De*t*2 + DY**2) 
C22 ere2ece2=— ee a a a A a a ee ee ee ee ee SEES SSB ee SO Se SE eS ee eee eee ee ee ee ee oe ee 
Se LNITIALLZS 2POPALI AND IMSAV 
ew eOtewce 2)) eid. (LMSAVeNE.—1.)) GO TO 10 
pe eft sgt 
TIN SaVeETAak 
10 Peo neetc. Ds CMAK shee IMSAV) TMAX=INSGAV 
CALL SRACK (23) 
Pre moan «Gk. | Goi Cwe 6 
Tes re eee ME lon. (Z4230N) ©.b?. AEPMAx)) GO TO 20 
aE TURN 
20 I¥ uninses. a aioe  Cteuboleale PUPAL.) POPALZH=24(0NUM) 
Tomeiyuey Ge. ATMDT’) GC TC 30 
ic Ick R=2 
c bELUAN 
2 (MNUM) =HTSAIN 
30 IE eS ie eee Ay FO LP One 
eS PR aau 
c SETURN 
z(MNGH) ETA x : 
BETURN 
aC re (CLE MoO e.2) OL. CaN ' 
ies Mar SLES Gk) )6GCO- TO, 60 
ITEQR=2 
ee RETURN 
E GCCMNEUTE DRAG AND LIFE FORCSS 
00 RBHUO= Oe O72 OS EXE (=). eee ee yaa ous)) 
ae (2( ANE a os 10670.) ro 70 
GHO=9. QO793#EKE (0. 156% (z (dU) -106 70, VANO UG.) 
70 ClL=2EnCeiery (1lO* (VEL(YNU aye cae 
Tren . LE CLEAK}) GC TO 3 
RETURN 
80 Dw= ( CoEO eos CL +C1) 7 CL) sewCL LET 
TR=T4ND+D 
ie ee LE. bank) «AND. (End> 4GE. OO. )) GO TO 90 
IP (T4 go1. TEAx) LES 13 
Dw= (RHO * (VEL(™NUM) ** 2) /wWL) *(0.CS+#CD0 +CDK* (CL¥* 2) ) /2. 
IF eR tet UO) Le RA = | 
Preetironh e.8 eo OC) ce alunN 
90 IF (MNOM .NE. MER) RETURN 
C EVALUATE BCMEING &0N 
DI=T(MNOS) -T(4NOM-1) 
TGTIHDG=ATAN2 (DY,D012) #57. 29578 
-IF eae ee de) 1Gt HH DG=LGLEDGt36 0. 
Dx= eagayay (enue =I 
DY=Y (MNUS)-Y (4 NUMN=-1 
RESDG=ALANZ (ol ,CX)*%.8 /2295 78 
IF ‘ SeENLG 4b 1. coh ACH DG=ACHLG+ 360. 
HDUGLSAT=AES (TGTELG-ACEDS) 
MPa fee Pall 2.Gh. 10G0.) GO T TCG 
LTEBR=5 





100 


120 


130 


140 
to 


RETUR! 
I? (2{4NuM) -GE.100.) Go ro 11¢ 
LEQR= 

RETURN 

IP (2(ANC#) .LE. 2000.) Gc TO 129 
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DATA MKERY/16C,14C,120,100,90,60, 160, 140,129,100,30,60,16u, 140, 120 
ee Oy 300 60,186 %a0/ 


we —) ew ee ee ee ee ee Oe ee ae eee eee ea ee eee ee ee ee eB eSB Oe ae eS ee OS ee Oe ee ee ee es oe 


< _PREDETERNINED Mowe CN ES PLECSM ENT PARABST ERS 


— 2 oe oe oe << ae oe ee ee eee ie ae ee ee eee ee 


hoc 
as 


DATA XGUN/14800., 162C0., 13600.,13800.,1130C6., 15600. ,12800./ 
DATA YGUN/9000. ,3200.,720 Ce ,3CC0- 9700. , 10900. ,7500./ 
Dae a Oe Ge, 20s pels , 206 ,-9Cs,20 -/f 
DATA £Sa4g1200C,/ 1SA4/6000./, 2SA4/5 00/ 

ou DATA Sa) Dee Ge 1400.) 14 dee7 2500 -,2500.,2500./ 

C SIMULATION PARAMETZFS 

C----— mapa => ae ee 23 ee ae ae ee a OO ee ee oe ee ae ee ee ee ee ee ee eee a a ee 
DATA CLUAK/1./,#L/100./,S2D4IN/30./,GUNK/6 2/43 TAT 3/60. yy 
DATA HTMAX/295C./,aPEMAA/US 7.7 THAK/ 9504/4 CD0/0~.915/,CDK/0. 1/ 
DATA ¥%aX1/200./ 6 THAX2/ 3100/7, SCa4TI76000L/ 
DATA TARGX/140G0-/, 1485 1/7220 ./ 
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Boe CoeOPL ENP lP LISTING 


CK IHRE KE SMRBEEKXTMHOKTARKRECKKKKKERISSSEKKK EKRPRPRSEKKESSRSERKAKKAAEK KEKE SEK 

C MAIN EAOGRAM 16/M4AB/@84 VERSION 

c Bere ro mAs SXScur °c’! CF TUS =SNTIAE PROGRAM. 

Ee PEIS IS THE SROPCSED ZODIFICATION OF THE JOHNS" 

c Pre dre eaOnk 2OR SCaE CASTS 30T NOT FOR EVERY 

C CASE, TEE PLIGHTEATH PACKAGE (3IGCAL PACKAGE) 

c Tem UPScUtTS 19 SEEARATELY AS 217 FORTRAN. TEE 

C Taeeecicay 15 S21 US TO sbITS 320 FILE AND 

Cc Peewee ScONTATN ANY GAAPHICS DEPENDSIT CALLS. 

Cc oe ae 1A RH —— 

Ce SRE SEREKREH AKERS SEPARATE TEKH EK SHEER EEK AER EREAKEKSE KEK EKKR KEE SEK E DH 
Como, MEVK AA kX, MINT ,MAKY, SINX 1, 24X01, MINC2, 2aLK2 
eommone nce, £1,.71,21,¥1,1T8, LTE2 
CCHMON YSYH/ LEaAdL 
COssce JREC17 “ax (1000) , 4¥ (1000), «2(1000), 4H (1000) ,aV (1000) , #4(1009 

Peeenoo Oy, 121 1005) , an ( 1900) , AG (1000) ,2 (1000) , rc? 

COMMON /ABC2/ XNZh,XIEM2,XOLD,YNea, LTEXE, LOLO,2u2a, ZTEMP, ZOLD 
CCMAON /AEDZ/ SSTALL VAX VMAL1,VMAX2,CELTiz, DeLiv, DELTAZ 
Bemieue7 NR? 7 XGUH(7),YGUN(7) ,ZGUt(7) ,XSAU, {SA4,ZSAd,GR(7) 
COMMON /CET/ IGUN,LENCH,IzXT,ISA4,IME,<ER, 1MPZ 

ComMON YNAMY TNA41(2) ,Tha42(2),L04%%, thug, {Dest 

COMMON YIAR/ TARGI, TARGY 

CALL ERESET (207,256,-1, 1,299) 

Ict=2 

VMHAX=V MAX1 

CALL 35GIN 

GAle SCasE (0,0) 

E REWIND 1C 

C BRAW THO FILER GUN SITE € ITS SNGAGEAENT CLaCL=E 

i Guibeountce (1Gah(7) ,1SON (7) ,G5 (7)) 

C IGUN=1===> READ USER DEFINEABLZ GUN SITES FROM TERMINAL 


c-— 
. Sone sCOueaN cS Live lLNDCa: saaPHITCS INITIALIZER 


Capea Nieuwe Aw dee, HeO00., 1200). ,0) 


C “GSLI DEwLE bomidem tire OF ELLE TO EE DRAANs EOLO, DASHED ETC. 


Crwrrernrree-- see eee Oe eee! Sw 28 ee eee ee ee ee eee eee Se eee ee ee ee Pe ee es ee ee ee ee eee oe 2 


CalueGobLi- (1) 


: SeEGakemgRAwo AkGOo aANWO LPF S2SCIFIELC, AHOLE CI&CLesS 
Ga gemacGanGe(500U04,3000.,1AnGX, .ARGT, 1s, le ,2-) 
SNUiEGSLT | (0) 
GAL G SF RCE 
IERR=106 
CALL ERRSK (LER) 
DC 40 I=1t,0 

10 CONTIN UE 


Tropes 2 .NEo 1) GC TO 20 


20 CONTINUE 


eel eeGcusetyPies, GCak FCR 3 KM SEPARATICN FM BRIDGE 
a I-GEe5) CALL GUNCHK (%41,Y1,I=28R) 
TESEING. 5) GO TO W 


C 
e Doan Gonmorerr AND ENGAGEMENT CERCLe OF SELECTED GUNSITES 


SreeGuNLce (XGUU (1) ,YGUN (I) ,CR(I) 
BREESE (1c ,250) GLEN (I), YOUN (I) ,2G01(T) 





40 CONTINUE 


ee ee ee ce es ee eee ce ee ee eee eee ee ce ee ee ee ee ee ee ee ee ee ee 


COR EaDeUsoke Deena nLs SAM SITs FM LTEsdinal 


Cw eo reo nw oe = @2un 8 wee eee ees eee ee ee eee ewe we ee ee ee ee ee eS eee eee eae See eee eee es eee ee oe 


50 CONTIN OE 


IEBR=14 
CALEVGRR AK (LESR) 2 
Peete oe ee 1) GO TO 5U 
Caters © 
ZSAM=20. 
GO TO 70 
60 CONTINUE 
CALE AYP 1 
CALS 2VPT 
ZSAastsZ } 
70 Cour iIivs 
XSAH=X1 


YS AM=T 1 


fe Chee onmioe ee al BRAST of 1. FM WESTERN BOUNTDAaY 

C-—= ee ee ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee eee ee eee ee 
GALLE Saucer ts 1, Leck) 
he whine Ses lo GU TC 90 


er 
eecDh Aw SAN SITE 


C7-2--"--—----- a a ee ee ee ee ee ee eee eee 


CALL SUNLCC i POs Ae Ue) 
agITE (10, 250) (Sdn ysha 2S as 
GO TO 


SeeeGUN=Z2==—=> READ GUN Sits FYROM DaTa sclLe 
os 


Scoot ee 
4.9) GO 70 10u 


B25) KGUCC Lie L SUR a) 2607S } 
,250) XSA4,YSA4,ZSAM 


1,0 
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Ct ot 1G 
Cry lard 


TOON CCNTINOUE 

DO 110 I[=1,5 

GNUUNGUNECC (XGUN (1) ,YGUN (I) ,GP(T)} 
110 CONTINUE 

CalgeGumrec (XSAM, SAM, 150. } 
120 CONTINUE 


ew > ee ee ee ee ee es ee ee ee ee ee ee ee ee ee ee ee es ee ee ee ee ee ee ae a ee es ee 


C THIS SECTION WRCCEEIS IHE FLIGHT SILESTONES 
LEBR=15 
CALL SERMK (IZER) 
REWIND 11 
C READ MILZSTONES ?RCM THE DISK 
ye REA wii, 250} Pires Vix Gr) aay ie ATE Tt) AO ( ICT) ,wV¥(ICT) ,aw cic 
a)" , 4 T) ,a a 
Nea Ty Stet), v6 (LCs) SLES , a 


Wau 
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C-— 0) 60S 6D ED OS a oP oP oe OD oe we oe or ee ee eee ee oe ot es ee ww OO OO Oe owe ew eee owe oe owe ww owe 
Seer ek=-65 ==> CALL FCa AIM 
Sel ta=o6 ==> CALL FCH 2CNE RELEASS. ALSO ALLOWS INCREASED AIRSPEED. 
C LITR=82 ==> CALL PCH FEFCGSHAM T2£SML \ATION 
eur s=as ==> CALL [TO FREAK OFF INPUT ROUTINE AND RESTART. MEANT TO 
e ALLOW CHANGING MIND @HILE IN MIDDLE VF 2PROGRAM. 

I? LER 20-22 -GB- 1282-20: 02} CADE Al MET 

ie poe Ra Ee eo. Gb. LTE 2.5 6 06 VMALHEYMN AKZ 

Pe (Eta s0so22.Ca-2iak2.20-d2.anlo Iie. 1e.-0) GO TO 180 

Tron tears ae LIB 2.20.33) GO TO 140 

CALL GRAFIX 


c 
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30 BGanst) (20H ELIGHT & Gade PARANETERS WaDeUNdL 2: —2=Use0 Pes) 


ENO 


146 





HK BEER EKERK ARERR KARAT HHA TRA KKB AKA ER RAKE AERA ERE REE KE AR KEARSE EE 
SOGBROUTINE CONCHG 


c 
C 
C 
C 





of Oo 1 | Qa 

r . ' ’ t~ 

at ons q 1 aa ' 

” b+ j 1 . i 

# to 31 ' ' © ' 

# fas \ ’ oO ( 

* ri, t 1 a ' 
fd emit) q 1 » ' 
Tl oO a 6 ' ’ i ' 
fa 6 Ne 4 i ( Ww 1 

# ticQen ’ 1 - q 
O # F4tUs: 1 ' . t 
f4 4% od ews t ' Zs: 

# 10m . ' xt 
Ww # OY « ’ ' Ca 1 
Slo t . ' 
Om * cS eta 1 | 7? t 
~ F4.4 J t ( Cy ( 
<C¢ € +278 t ' ae t 
‘Cc # f:] eM 1 t . ( 
oy ¥ > 4 5 ' a | 

4 a(nt¢ ( q N t 
mG % lensed ' ' - J 
O * FIOes ' ' . I 
H + Homes ' t oO ' 
*‘S # 1M { ( Os ’ 
4. # yy wa ( ' -- ' 
Hake O45: ' ' . ' 
Os St ered 1 ( Oo ( 
OO # ANAe-ts: { ( Ha ’ 

4% MM 8M ee = ‘ 
TT oH thd oO. tic 
eee xt, LID wn 
Ocae ™U ' ' oO Hi 
oJ fr 4 & ard 1 t ae ~aa 
ie oT ser ' ’ exc ' 
pul ®t mG ( ' (~™M { tu 

FIN 0 «ee Fle ’ t —- f. (=u 
reg 3s e-im ' ' OQ 1&4 
a1 1G 4 mo OU) » { { er~ ® 
t-—4 «<= ft es b+ & x. 
F+Ort tity ' of uo oO 
> 4 <t-t73 YI 00 | a4 
Qa" ss3:™H WY] ’ . § Fr. 
moO  e'0 ay t <> me of 
(tie et ye of ' “WN L 1) 
Dee 6-2 8st FY { » mH pod 
(Aece® .aeeo 8y °2 a 1D 
te UeoFI Of ' {Gxt nn 

(ND* OOH Ti OF ( oO +4 at > - yn 
Mas# lumi & I ' 02 >< J > = ~ b -< >< - N ot > 
Dre Cte gt ' ~- «fT, et, <= HI a] ¥ ¥) cn > 4 Oo 4 
EAU o% Pye Punt ~~ * fa #2 Ses ¥ Qu O» x Oo ™ -< “ft m ju 

Os IS 10 FO COCO OCOODOM nN OU Soff OF of OF Ot Co Of 92H OV OU OF OP OF te 

% AHM Amt I HDONYNANOM e*e* @ Oo = ee N ~ = Wy) ‘0 t~ co oO > - {2 

Hppwojen wo | ELE TNNANANANN HO Ns Aan Me Mn MeN MN MR OR MR MR MR MR Te JT -_ zy 

HAT afulytey pg S 8 eo 8s we & OHI tH -* my = wit = ft =H af Ht =f =H -* oe = {3 

KH NNEINR ED EOWWWWOWOOWWO © e™ ~— OPO WMO D0 WOU DO WOW DD WOW OO 0 sDo \O wo ie 

% "a 9m 4 AN mn HO ON one mn nn Ne mm SYN OM 

CE ee eee ee ee Oe ne eae ack OM Of) 0%) Of} Of2 Of} Of O} 

# DI I) HH Bt B64 QE HOHEIQOE BIO HOF HO BH Q BHA HE QHHOARHORHOQHHONMHAMEOE IR 

# MODIFI IH I HHH BIR RS ete tO OOOO Oe OHIO Ot OQ Og ft 

HFTDOOOMO) FeO MAYO seHOMWIU EH OMUO BN OW NO RMMOMMOMNOMMO MHOMMOMYNOURO 1% 

*#OOQUUOKU | A) | Rie te Re ere Re OH Teo Bie P09 POF CN OOO CD we ORO oI Ud re Oe) es 

+ t= tH ‘ — 

* 1 | | 

ot ony y a 

+ my Q OQ o>) >) oO Q Lon 

+ | 12a S @ OQ Q OQ oO S ao. = — N ry a uw 

() QOUYUUuUE “N co” =F wy oO ~~ ~ oO -_ w~ r~ - re -_ CU) 


147 


Si 22 2 eee we wee 2 ew ew we ow ee we we we we we wo we we we we we ww we oe we we es we ee ew ow wo ww we ow oe 
REWIND 16 


1690 


E 


i 


s 
» 


10 
C—- ———_ 2a ese @ew 2 TZ ee we ew ww ee ew ee ee wee ew ew ewe 2 2 2 2 2 eB ew ew we ew ew ee ee ee ee ewe ww Bw ewe ew @ = 


GO TO 


Omi Van Bia L 


PARAMETER VALCES 


WRITE es 
C72 272 ee oe we wwe ewe oe ew wT eee TP ew eee e222 222 22 2 ew ew wew ww O@ eT ee Bee 222 @ @ @Ze@@ @ @@ 


c 


Seok nl, tocALLFANAAX, HININ, ATMAL 
3504 FOPMIN, AP OMX, THNAX,COG,CDK, VMAX! 


ISO ae; 
(Muy) Tw 
Satta te 

ss es & & & ©& 
W000 D900 
PIOMBIPIBIPIOC 
E44 E+G4 Ete 
HR HERY HH 
MOM atim ming 
Te OR ee Ae OD 
oOo 

é 

we 


WMAt 2 PAaGk ,cakcyY 


( ———e wae a owe ow ew ee ae ee Oe See See OSes Se S22 SO PePWS 2 2S Sew OP eeeew ws] 22 OS 2S = OS ST Ses @S SS 


aLLING RkOUTI 


(= 
wo 


C-- ee ee eee ee eee se ee eee 2S ee ee ewe ee ee ee ee a eee ee oe a ee 


180 


DISK AND ExzTUanN TO 


ON 


VvLoeSs 


SAVE PARAMETER 


S 


a 


Te tH 

D101 Of 

Cf EM Tw C4 ea Cay Pa Pita Deg Pg COE Peg Chay Fag he Ps Fira ey fis Fy 
= 


ie. 


oMAT 
RMAT 
MAT 
MAT 
MAT 


b 
6M 04 
OOD00VU00 


Sage ee ae ae mt Set? Seater mt ecm Neat, Somat? 


E+ Rd Es E+ Ea F4r ap abeaF ify 
eC deed Cott cnet etd 


Fy Sa a 
006 Wing Ud agi Lg 
OD ONOD90OV0900 0 


“XN a e & ° 
ix bed H = fy 
= a = 
* @ e E4 oO 
~_ Cra 4 ss Uw) 
Nm Wr = tere 
ieee e at 55S 
GO—m— OU _ UO » 
270 a a Ou 
chim (i eo E4 
Real tales Sy fen mn as Fa gq ttl 
Ons Sm = "40 Tm 0 O 
ca eh bro ee 
BIIADA I Oltad wis ie «t 
oh TD) ae tH fe 
OaNee 24 ry — 1 2 
s7FANO Paiamoll ss NOY, a (=) 
MV/ries FAaHixs oOo = te) ) 
aie i =a —~yMta f4 “Y 
Me 2 +P acti “ew O04 otf wm 84 i r+ e 
<td W +.) & Ors o) CI)-+4 [] He aA 
iG wm cerC Ose OCs ie 9] nw UW) ao 
£455 eee =>) fies -4F4 LN Coal ith eee ke) 
“T? to» coom oe ly ry EW Pit? mIOO Dries wm O 
ea QW-CO'F Iq FA OAM FE uo Y 
ute IMA TUN lie m2 MY) OMda f4 
Me) tom FA mined tyes HtN Mla ~ 
=) mom me ctagtt aos uitt Hi Ete es 
tH G.3 #7454 Ib TR ett Faeans = =-@fM Qa | 
cece) Pee ee eo(Det TIO f_ HAO YrTOe F24MN FY ld 
aM Oerbaluass il i ho“ Fr4 ef OUR OO o 
»~') ved ie) UN un «ot 4 eo. 40 553790129 ae 
“i « Qei-gino eo ir) ) Qisvfd ) ore oT ER +e Ch ro e et 
=I (2 mn Fe ,. 44 AOONU OU easfemm gq E—4 fF 
Ch Lb {| £4 wm sebbere WDD TC senate! OS 
e>It5 COUR Ab e  eTUietee TE EE Ur IatGEtA OY) ‘ 
wm RG ee FFF tes tut Hite eeu 4 
41 wt? eof$ GH NUMOMALIEEAN G& HUOTS a, 
4 Tab wOcet CA MEIOHOIO gt nah TCA Aa M 
Othe. Pitre FA CO F4 AllOeret”A ef MMOOAM .- Bh Fi 
Ne FIB< tetdee TP CCV uO Dh) gry 1 oe oO 
ust) LIOMOU Nim OM ast t33 Rin OQwkih mM 
Am SIH Ge Cleese. SG ot oe Cu 15 
ricted ot —@ ef 4 sae x2 f-+ yea rey ee @ 
Sor mMHONM At | Heid 4 Ses Uc x 
a7 & eM als Ode CIP WOM ST OP LES bleh ehh OT OG : 
PCHIN fubqy mes QR RA eT R44 Det ied ot et 
“1 FS > JO9DG Fe CANE MMOS TEs 
2) bas eX tt tt Wy > eG 4 
ess OXI IemUM—O Mmm IminiMmoadm mimo 
WU Qute Wo OG DUPE AD gag ee Pert bedded bea ed ers pee ty) 
HF NW Wee hie tek bt EIR eH EA tts 
~~ bP ON SS RIGA 
Ora UICNA OO em eT a a tea eed ee Died regs tl ty 
mn 
Pee ete sclera do le ie ele ks eet eeecds oe Se 
Fe MODE AM SIM OWDOMl NM NWICMINAM 
WoOwwo NNASFAOnRSTAANTCANTAWHN NIMMAMMMWN 


Re art net ee ara met mee 


F4C 4E EMEA EAR, 
at ot oO nt KE oe ot 
Eis} Fl F995 
MmCtGedin m,04 
OOVGDO C00 


ems Pt Ste Pg Fg Peg Pry Pry 


rc 


QAPAQDD DOECAOD70O7D Q?Pan0ctaea 
HO-NAMF MOFDHOKNANS NMOYPWDHANOIEN 
PmANNNA NAANNANMMAMMMS YAMMAMNMt To 
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CRE EER ERE RK KE RAEEE EKA ARETE ROKK VPA ETH AKA KERER TEER EEK EEE HR ANE 
C SULROUTINeG SCENE 
€ Miser cone tAwo Cob ATTACK SAP AND ASSOCIATED 
& Perens. DUSENGORESET IT OBTALUS THE LAST AILe- 
C SiGNewanewUsceer #@@lLSHeS,lO RETAIN. 
CREATE HTHRKE RE RAEAE THESE R ORK RK OK EGER AER K ERR RKE KEK RK RE KERR 
SUD OUmENeE PDC ENE. (120 ,F CNT) 
CCuuON fZENT/ CINK, GAXX,MINY ,MAXT, SINK1, SAXX1,SINX2, MAKX2 
Cousens e ly weet iodo), at (100), ae (1000) ,40(1902}) , 37 (15003 , a4 (10 
WEOUHO Zaecd yg 44 (1090) 044 (1000), 244 009) Au 100 éh 
COMMON /Taag/ TARGL, TART 
DEMENS LON. 7 2L( 200) 
VEL(Ge j= s0n ft (eU (LENT) **¥ 2+ a7 (LCNT) *¥*¥2+h0e (ICNT) ** 2) 
ReAL*4 GX,Gr 
LOGICAL *1CHA&S (20) 
ICNT=0 


CEecbASE Tee TEK61e SCREEN 


ap ap ae ap ee ee ee se es ee a ee ee ee ee se 2 eee ee ee ee eee ee ee ee |S ee 


CALL GSEES¢e 
CALE DStir4 


C— Bee ee Pees See Se eee es See eT See eee ee eS eee ee Pe eee ee eee ee ee ee eee eee ee oe eee ee os Oo 


Per onumUseamer ta0NS.ECREER AND GUA/S%TSS POSITS O8 FILL IN MA? ALSC. 


ap Oe ee ee eee eee ee eee eee ae eee eee eee eee eee ee ee eee ee eee ee ee 


WRITE ios) , 100) 


READ ( (AE 

ne (Tae nt OyGe TC) 10 

HERD (oe) ECUT 
e Cala ear erSy(*CL&ccam ') 
CoOBAe THE X,Y Sh2 
Spoon ULE Neemaes Do X,Y SArhS FEON SILE YY. A -2.J,)_INDICAIES 
ere ecg ee gy SN LLe cs A OVE, nia COVER ¢ALe lS Ans 2C- 
Ss SeeevoemamOenesUL?T Ta nxn ohAd SC THAL cCin€. 
: Meme 2k tHe ITEX€18 SCaEEN 
10 CALL a SENT 

CALE Us EN (MENG, AAXX, 18000., 1Z20C0., 1) 

ae aS erGe 0) GC IC 20 

“BE@IND Y 

READ ( 3. 89) Giect 
20 Beno 2, 00)) Gs,GyY 

CAPE eV ECM s( 04), c+, 6 1) 
30 READ (9,00) Gi,GY 

aE (age tes" Q} GO TO 4g 

PFe(Gse its 0) GO 10 20 

CALC EGSOVECT (12.6%,GY) 

GO TO 30 


Cc 
fepsaehs Cha TARGETS GUNLCC EUTS A + AT GUN/SISS POSIT aND CIRCUMSCRIBES 
uO CALL GUNLCC (TARGX,TARGY, 150.) 

CALL GUNLCC meee eee eee! 


C---= ee Pe ee ee ee ee ee eee Se eee ee eS Se SE ee Oe See ee OS SSeS SS eS Se Ss ee eS ee Se es eS or oe 


DO 50 I=1,8 
IW=2*1 


> ee ee ee ee ese ee ee ee ee eee es ee ee ee ee es ee es es ee es ee ee eee ee ee ie i 


Mepis GLOCK DEANS TEE X—-AXIS TIC MAEKS 
c 


CALL GBVECT (9-,1*2000., 1000.) 
GAEL GavEcTt 1. 4242000. 
G@innecax ite }1 fe 12 rah AS)" 

SNULDUGECHAH  (r*e2000. 0. , 2 ne0+ »2/CHARS) 


oe <b coe eb eb oe oe ee a ee a aa ae eee ee i ee ee ee — 2 ee ew sa a a a a a a ee ae ae ee eee ee eee ee ee 


Mermes ELOCK DRARKS TEs Y-AXIS TIC Meeks 


a EP a ee ee oe ee ee es ee se ee ee ee ee es es as a ee ee es se 


Preah sGes 6) GO TO’ 50 
1C00. ,1 72900.) 


GMEiGRNEC?T (C. 

Garr Gav rer (1-,9-,2000. *1) 

CALL GaxIic ieee oe CEA 3S) 

CALL GBCEAR (-o0. ae BOW. as POs ord Ans ) 
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1 | ic 
-~ ’ \ 1 i— “YY 
- ' \ 1 ' f4 etl 
“” t ' \ 1-5 ee 
J ' 1 be -eD uy-t 
~ ’ ' ’ ted r= 
E-4 ’ 1 1 a mh 
pe ' I 1 't. f 
hie 1 1 | rx ele 
Nn ' ! ' ies 4a 
tr tH ' ' ' | om > 
His< 1 I 1 164 C714 
ba -t ' 1 1 17 fs) +2 
fr} ' 1 ' 1U f4 
Ft od ' ' 1 }'4 2344 
t it x = 

ow ' ' t;ArTaA f+ ame 

O- ’ 1 pried on™ fa 

ot 1 1 Votpt> m4 x 

NY ' J on NN “tt 

a 1 4 14 e "1 F40G 
™ 1 ' ;oOIN ZN tha 
K4In ' ! tray Et fr} 

tx] | 1-04 peel 

try fe} t ' 14 E+ emt ICD e) 
ea td ' ’ ide oO TAIN os 
ann 1 ' # tue pra wit tra 

wt fr) ' ! poIV erta% 4 

eka 1 1 ' pry uy F144 EtH 
Ww | 1 _~ mI Ww =>» 
amo ' t un '<c) —F4O «oN 
™ td 4 | = G ' | a 2s3 em 

a fr] = ro pfdyet ef) 

e- WN ' 1 « re Qs = t> > re 
uy Se { 1 e WW ~owtYU Dv ee QO 
wo » 1 1c ~ te] om Cee coe 
mE ED ' to (N tHIs aN <j 

2 8K t 1~N . tesa oN om 
Dee ' rN po ° pratt e Oees AA 
qn e | . 1 > — myc ND e 
N 8D oS = e qr ry ed b4+E4 
As t "> aon 8 O~ 101 +O °® ag) 
+ tn ' PI COT UIN os at 4° aes 
berg ¢ ' 17 DHE a —-O 7c 1h etext] O Ol 
oe 1 ee ees = | vs ef SN uo 
t4+ 6 & 1 C= tH BO e ot t) 33 e « 
moO ¢ ' pox t4 eUO OQ0 [|HIH eDe ili ve 

w= SD ' >< ~~) am muy =F etd <3. Oty 
Uy FT ' {<< oN + + ~ul Oro t4e 
rm» & 1 [es ory st He Fon a) TS et 
N «ee 1 / . a sd ie ee 9 +31 -% Nee w I 

-+Ooo ' ‘= er =e an) pute -a 4#0I©O am 
bore PIG | MNDNK TO ocr [ers ohne i SEE 

ome q ted {= eee — Se t ' onze ec 
NOH PEAT HOD tee = 
m— Noga PebpsineHOUM wees ml etmeiAda fy Ioan 
1) —tcu PUI VUES “UU PH pte geet UU i290 CO 
art oD pry NUR om be oF OP asm ot Ota NI 
t3 7233) Oi Pp mW eM Pe bt at ra U ft —_—— 
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Om NGA edes Othe f FA) COC C-TOO TOU GI Det Hee eo OTH OOO 
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CORK RPK REE KEE RHA SAE STH TKE ER KK AAT RKE EKER ERK ARAKKR ARE LKR RR KEE ER EEE 
C SUBRGCUTINE aILN : 

G pal? Rouge bee EhES TA) WLNCOwW cKT ENDING FROM LX TO ¥X 
c Serronm GONTabenwls, AD FROM MENY TO 4AXKY CN THE 
C VERTICAL oboe coe HORE ZONTAL 2ANGe IS &X, THE 

Cc WERTMICAL RANGE. IS 2Y. 

CPR PRA AS ERE ER AKKKE STAR AR EERE REK EKER AREAKE THE EERE ERR RARER REA KE EK ERE EEK 


SUBROUTINE WIN (LX,4X,2X,2Y,J#F) 
COMMON /HN/ TEAUD 
COMMON /SENI/ MINX, MAIK,MINY ,AALY,AINX1,SAXX1,MINX2, MAXX2 
REAL*4 @ANT (4 ) 

INTEGER*4 V1(4) 

DATA #AN1(1) /C./,@AN1(2) /02/ 


en oe ow oe oe ow ee oe a oe om oe ow ee = ek ee _——_ ewe ee ew ow oe ow ow ow oe ow ce ee iw we i ee se ei ee 


SeDEFING THE sLNDOd 


{ —— <p OUD OED DD De ee ee ee eee ee eee Pe eee ee ee eee eee ee eS ee eee Oe Se ee 2 ee 2 oe oe OF O88 2 © oe om 28 = O88 ow ee SF oe of oe oe oe O88 oe 


Vi(2) =MINY 
VI(S)SMAXY 
y awd (a) ony 
WANT (4) =RY 
13} aux 

V4 (3) =MX 

CRLL GaSVIE 


aS << 
i 


CALE GAS «1 
EF (J8P .E0. a) Nie TGe20 


a ew oe ee = owe Oe eee oe oe oe oe ee ee we ee ee ee ee ee ee es ee ee ee ee i ce i ee se oe 


© FLASH THE DEFINED ~saINDCN 


( <_< om cows ome ED oe owe = oe O88 oS ee Oe oe eS eS Ss ee Oe a ee ee oe oe oe Oe Oe ee ee wee eee es 2 See eS eS Sw wes Zee Bes ws ws ws Sees wo = = 


ICNT=4+5C*IBAUC 
DE 10 I=1,1CxT 


gin, 


SNOT sot ect aa 

Gyemeceu rer « to ay) (tp adand (oy) 

GADD ec avec ee ese) 

GuiveGaw hel i t.a 1 (3). woul (2 
4 Green eC 1 1., wav (1). ,nn? (2)) 
€ YCU DO NOT ASHT A “CALL GSFRCE" HERE. AILNDOW CEFINES THE GRAPHICS 
GC PCET CR "WINDCs" YCU ABE "OPENING". THE OTHER SUBROUTINES ARE PASSING 
C THINGS THROUGH THE GEEN wINDOr. "CALL SSFRCE" CLOSES PH? SINNOW. 
10 CONTINUE 
20 BETUR 

END 


eone 





CER REREREHEEK TERE REEBRAEKERREKEK AAT ERE ARETE PASH AREA AK ARK AE AKER EAE KH AE 
C SGBROUIINE G WILOC 
Cc fies SUPaOwUer es  CRAWS = EF 
e REOUONDWEHS DSFENSIVE wad aA 
CPR ASRAATHAEA KE SERRA KEK EET HERS KET ATHEGR TEAK * 
SUBvOWrTl ae GONLOC™ (G24,o 1,080) 
CCMMON /MN/ TEAOC f 
Soares Ca 4, Bee Mk MS ENY (SM AXY , ALN AT, MAXX, SINX2Z, 4 AXKX2 


Peon ObUs “CIRCLES 


KRAZE REAKEKKRKRERKED 


BEAL me 3X CY 
X=GX 
Y=GY 
C-——----= -_ ae wee ee ee ee ee ee ee ee eae eee eee eee ee ee eee ees ee ee ee ee eee eee a eee eee 
C IDENTIFY THE MAP ANL ELACE f+! AT THZ LOCATIOY 
Sumer (try MAXX, 18000-, 120C0~ , 2) 
EXPE GeVEGT (0.,%-75.,7 
FLOGUSGEVECT (1.,4t75.,Y 
ENDL GBY=CT Geeks te 73.) 
CAtm GRVWECT (1.,%,1-75. 
C DRAW A CIRCLE AROUNEC TEE SITE 
GNEL GSLT (16 
(VME PGR. (RAE;SAL,1;¥, 1¢,1<,2<) 
Gylwec sir 
GALL GSFRCE 
RETURN 
END 


CHF SPHSKEKEK CHESTER SE TEREK AKER EEEK KARR EKK EKER STEERER KEKE AKKE KEK KR AT EERE 


. SUoSOUuLTIAE AYLEL 


er oe cee Oy ees CSL eeOoemeac OK ona Y COGLUO Likes 

Cc A Comoe Or were Jes lGhal ap POINT “NIT Les - OLE). 
CH#KSSHKSKERT KAP SEK EKER REEKE SAK SEEKERS K SARK RER RTA RAAKAAKEK SEE AERTS 

SupROuLIENET ALP TL 

Cesrene 7 LCC/ ke 2p) lees 2, LTR2 

GOuaMON a BEN ea kk wre, CAXY , ULNA, MAXX) SEN K2, MAXX? 
c Gall seLL 
Cm me me mee mm ma ne ne ae ae a ae ne ae ee ne we ee a ee ee ee oo ee ee ee 
‘S PASH MAePANL Goel A,Y awe THE farsi CCIA AND 

Galeeaseieol yk, MAAR, 10000., 12000. , 1) 

GARE Sorolr (Alsi), 

CALE, GS? &Cz 
Cc Caro SELL 

BETUORN 

END 


CER AHS EAHEKE CHAE K KEKE DERE EET EK EE EK AEE KKEK EKER EKER KEKE EEK AEE EE ORK EEX 
GSSUBROULINE ZYPT 
< Pato UCKOUL ENG eGhcalwGS 6Hr ALTITUDES AND, DEPZNDING 

c eats Sie euUCS tania, foe VELOCETY OF THe DESIGNATED 


CPR ARS KEHRK KK DEED ERE ERKKE REE KEK EK EEK A EEK OERK AKER ERK EEK DEED EE EEK 
SUEROUTINE ZVET 
COMMON /LCCY 141,%1,21,V¥1,I1T58, 1TR2 
COlmoney UNI/em lik, QAaa, at, DALY, ALS X1,ASAXK1,2INX2, MAX X2 


— oes 28 28 a = ee 2 eae ee eee ee es ee ees ee ee eee ee ee ee ee ee eee ee 


Cw7r rere nee oe ee we ee ee ne wees we ee ww wee ew wwe www ew ew ew wee ew ew ew eo ew @ ow www ew wo oo 


GCAee ow myx 1, 0ARX 1,350., 22CC0., 1) 
Galeeoe Ol (V1, 21,1TR 2) 

CALL GSF&Cz 

RETURN 

END 


ow 


CER RPER ERK KEARSE EKER KEE EERE OER KK EK TERRE SKE AAA KEKE EER KE Oe 
. SUSRUUIINE sPC7T 
Delo sRE TURNS AN 2-7 PAILn AND a CONMAND rue L1 


Depew eA LeO CALALES aA DOT aAT.2Cint 
See ee eee = aE LSC CHEATES 4067 AP L2CKNT Cet ys yeas 


SUBROUTINE SPOT (%,Y,L1) 
REAL SU “PX, oY, CCT 
MPEG te Geo cu t,he Y 
GO READOINE GCURSCa Add PICK JP USER CCMMAND 
10 Cael baG Bes YC Dace ts re aah 
GAEL “GaArcrlr Eteal ane OUT) 
DOT=4). 


-— a ee eee eee es OOS BeBe 28 8 2 SE SOB SBE OBe S888 O88 28S SSS SS SSS Se FP ess OO OBS 8 2 8 OBS SO 8S 8 8 8B Se Ses = 


a ee SD a ep ee ee ee oe es es eee ee ee ee ees ee ee ee i a ee es es os es ee ee ee ae 


C= ae eee eee wee ew ew ew eww ew ewe ww ewe we ee ew Bee ew eww ew Ow eO @e mw we ew ew ew www ew ew ew em oe ew ee ow ee we oe oe oe 
SeCOUVERTeTHESCCUMANLD TC TEE PRCPEx FCRXAT 
Cc 


= om a ee ee eae ae ee ee ee ee eee eee ee ee ee eee ee eee ee ee ee ee ee eee ee ee ee 2 ee ee ee ee ee ee ee 2 eee ee Se oe 


= 
IF (OUT. £C.13) L1=65 
IF (OUT.2ZC.2) L1=60 
LEmou receG. 3) LI=e2 
LF (OUTSEQ.4%) LI=&3 
RETURN 
END 


Ceres egcrxe SRS DEIR EARAEK RARER HK OEKRAKKCKRERTAEKRAEEERSHEKRKRARER ERE 
© SUBECUTINS GUNCHK 
GC LEIS eae C 
Cc Se ACS 4 Ea abs 
Bee, s sttccite + Puls ou wie Fo 050k bccn k ete xx % 
Sueno Cine GUNAGeNK  (X,*, 15 3k) 
COMBON /TARY TAaRGX,T ey 


ew wae ewe ew ew ewe ew bow weer we eee ee @ eo ew oe Oe tee w= @O SO Sees ereeos @ @e eee @e ewe 2 eww ew @ oe 


. 
a BeNnPUPE DISTANGE, ITC TARGET 


ee oe om Oe ee oO ae OS SSS 2 28 See Se ee ee ee eee ee eee oe ee ee oe oe ee © ee ee Oe oe oe ee we we es a es a a a ee 


FeGno GUA “LOCATIONS AGaLiust 
* 


AEMRKESK SRE KEKKEEEKRREKKKREKRAKERKKKE EE 


Deane Tae TARGS) SF 2 See AG == 2) 


IERR= 

MENDi st 6GE. 3000.) RETURN 
LERR=13 

CALL 2RRMK (IESR) 

BETURN 

END 


Cee OOK KEKE KE KKK ERE DERE EEK TEE EERE ORE RAK KEKE ERR KEK EE 
C SUBROUTINE SAMCHK 
c me womowenoul WE GCEECASS THE MISSLE SAPLACEMENT 
AGAINST ,sGAUS LISITTATIONS. 


Cee OERERKEKKK KHER EER RK RK EEK ORK KAKA EKER KE ERE EE 
SUBROGTINE SaagCcan (xX ,TeRr8) 
tae 0 


446 ~-G2. 6000.) aAETURN 
tea 

Cane 2 Ra MK (ITER) 

BETURN 
END 





CER RERKREEE RRHKER AREER EER EEK RE EK ETRE KA KK FER ARR EE RARER EA REM EERE AREER HX 
C SUBROUTINE EBRRMK 
S THIS SUBRQUTINE SENDS PECMETS AND SRROR MESSAGES 
TC TEE USER. 
CASNssaasasaanvanes thas ssa rac nese aessansns seensensens anes ene sse ena sae eae 
ethane te ets 2 
SCREOH Zascty aX 3009), . ¢¥ (1000) 4241000) 70/1009), 4 os eae oad 
) g@ (1000) ca P(1cec wat 10 0) 4 4G(1) O) et (i9ud) ,£C2 
E&MMON 7 STAY, We ara pMIN K 1, MAKX WM IX 2, MAX X2 
C PLASH THE €RCMPT wWINDCh 
CALL Es ee wie kee 27 00. 16S. , 1) 
MESS PECE 
19997? (10,29, Beene So 0ree 70740 ,90,100,119, 120,130, 140, 150, 160, 176, 
aRITZ (9 5200) 
, Bea 
Ms eo 
40 #RITE {§ 230) 
Gc to 196 
ee 
a Sie 
a ton 
go EE 84270 
50 aETES {85289 
100 WRITE (5 .29C) 
110 agIze {8 ¢300) 
mo HEE ge 
130 WRITE {6 320) 
Be SRE i§52° 
RE oe 
hee 652° 
Bhs 0° 
180 BITE {6 370) 
Pose 
200 FCEMAT (25H MAXIMUM ERAKING EXCEEDED) 
210 FORMAT (15H MAX G EXCEEDED) 
220 PCRMAT (12H ALT TCO £64} 
32 EDEMA (2gH342, FeO fom 
eae 
250 FORMAT (15H PCE-UE TCO LOW) 
260  FCEMAT (13H BSE CECE LO4) 
270 FORMAT {12H 34B DEC? HI) 
280 PCEMAT (15H TCC £48 EM TGT) 
290 FORMAT (17H ADG>S DEG TO TGT) 
300 PORMAT (19H FINAL 8UN<2.33 SC) 
310 PCEMAT (21H NC HCBIZCNTAL 10TICy) 
320 PORMAT (178 TOC CLCSE TO GT) 
330 FCRMAT (23H ENTER MISSILE LOCATION) 
340 PORMAT (26H SNTER AISCRAFT MILESTCNES) 
350 FGRMAD (20H ENTER GUN LOCATIONS) 
360 FORMAL (20% HA TARUST EXCZEDEL) 
370 FORMAT Obie x COOBDINAT:® LESS THAN 6000) 





Cet EEEKE SKSEKVTEARKEKREERHEKEKEKSEKSEKEAAHKRAKRE SRR SEAKARHEKRKREAERKKE REESE RK ER 
C SUERCUTINE BIGCAL 
Cc Tue SUEROUTINGE CEESATES AT A LEVEL BELOW MATY 
c PROGEAS OAD SGCTS AS A DREVER FOR THE SUBROUTINES 
c List oonaltil\ 
C** HEaRSEKEREK EX re ke RKKKKEKEERS REKSERKERKCERKKEAE EEK EK EK KE KX 
SUBROUTINE SIGCAL 
COMMON /AECI/ HX (1900) ,#¥ (190) 421 4008) #U(1000) ,4V (1000) ,#¥ (1000 
Wy ga (1006), 42 (1CL0) aR ( 10 Dg 1 (iGosy rer 
COMMON 7RECQZY XN 2a, DELZ, (TSY LD, ae QELh MT Sa4e COLD.2 12%, fEL%, 
1ZTEMP, ZOLL 
COMHON /ABC3/ VELCN, VELOT ,VELCC, N,SUEW,OTEMP,UOLD, YNEw,7TEMP, VOLE, 
JUNea ede, ACLE 
COMMON /AECS/ AG1,Alit,AI1,Ad1,302 
COSMON /AEDZ/ YSTALL, VEAX,VAAAI, VUAX 2, DELTIZ,IELTY, DELTZ 
Coston JAEES/ FaLaCC ad, ACONT 
ACONT=0 
CALL TENESM 
GAtE Weaclo 
CALL 4VZLCS 
CALL MVDCTS 
Gitte oEuyec 
CALL IMPENT 
CALL TMPVEL 
CALL INRTHA 
GALL ANGLES 
CALL ROTRAT 
CALL ACTRM1 
GALE AC TR 2 
GAlesAce sits 
CALL ACRVEL 
GALE VOACC 
CALL ACL7S 
Cat MCHNG: 
Clee en PERT 
CAEL ETL E 
ICT=ICT+1 
BETURN 
END 


LSS 





CRE KEKREKHKA GH KAKKSRSHSKRERAREEKREK ER RS HSH SKEK SHKKARAKREKERRAKREMRERKCKKEK REESE 


C SUBROUTINE TRNFRA 


ce Pitan rent LAGES TEE abAL VALUE VARIABLES SUPPLIED 
c Deon wasaeHit CS SUBRCUTINES AND LOADS CHEN INT 
Cc Wanneroo poP eC Te rT¢C TO THIS ATACKRASPT tRAJECTORY 
Cc GENERATING PACKAGE. 
C ¥* RHREEKKECHKK EEKKKSEKEOS IAS KKK EK SAKE K ORKERREEK ERECT KEKE ERIK 
SUEROUTINE TRENBR 
Comoe AL CC/ alee l,.2 ely tl ek, LIB 2 
Foe 4 ie MU eee OE ep hOLD, eo Boe, OeLt’, Liane, (OLYU,ZNEW, CELZ, 
Geeiil,uwid 
SOc, Abe ty ee CON, VeLOLl pVELCC , N,UNEW,UTESP, ,UOLD,VNUER ,VTESBP,VOLC, 
MONE S PAL ECE, AOL 
COMM on Jacoo7 EWwDACC ,aud, MCOUT 
LNEW=X 1 
YNEW=Y1 
ONEN=Z 1 
VELON=V1 
BETURN 
END 


CAESAR REKREK EER ERE HARTER ERK RRR RE HERDER EEE RARE AREER EEK EEE EEK ERE OR 
© SUBROUTZHE NEWBOLD 


Cc NEWCLE CENERATES LENGTH VECTOR COADONENTS BDETAEZN 
C THE CURSYT *AY2CTNS (OLD) AND THE DESIRED sAYDOINT 
Cc MSER GAS UUNSE ZENTERCD. (MEK). 
CFR PSSST HE KRHA KEKE KEREKE KH RHI RRKKKE is cece x tt c Sart s Pease <a sk ea 
SOEROUTINE YEWCLE 
soe MON Zaece/ Duc Die CoM ClO, Y Nea, OELY, (TEMP, YOLT,2uan,CELZ, 
- pa 
Gato ZACCI? vac eau lee 1 Aol, 32 
WomMON SAbSS/ > EAE Sec St, SCOUT 
AG1=4NE%-XOLD 
AHI=YNEW-YOLD 
Ar q=Z1en-20LD 
AJ1=SO aT (AGI ®*Z+AE 1**2+A TL 1#* 2) 
AJ2=30 RT (AG1**2+AH1**2) 
BETU3N 
END 
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C*¥F SHR EKEAKE MEEKER SERRARESEKKTE ARERR EEKRKAEKEREEKEKEKRKEARKHE REAR KKK KAE KH AE 
GC S>UBROUZISE QVELOS 
Cc eee (BAe VELOCITY Soe ee ner De lZbaiN cos 2HE 
Cc VELOCITY COMPONENTS BETAEEN CURRENT &AY POINT eel 
G ANC TEE JUST eNTERED BZAYECINT (NEd) . Mie aOR noUs LNG 
ce G@iratvee@neweunG (N) £O AVOID ke SsTlCinG Tde¢ VELOCITY 
C SCGa eur nro Ula LL ELTHER A NEN WAWY POINT IS SECEIVED 
GC ee eRe AL eM PLATE ON ewHICielLS facal IS SEACHED 
e Pieedemeolos eo SW LONGER ALLYE SUBROUTINES. TYE 
cS Geen Nc oe ot TS THOM ED MAD, f.a., YY rOLNTS NC&TEH 
CRRA REEER EE AETHER ERA EER EK KEKE SIAR KERR KEKE EK EERE AEE RET KK KE EK KER 
SUrsOouLTLNEeay ELOS 
COMMON /ABCYY AGI 4H1,aI1,AJ1 AJd2 
CCAMON 7 8ECS/ VELCN, VELOT, VELCC,N,ONSW,UTEMP,UJOLD, VNES,VTEME,VOLD, 
THNEW, ATOMP, «OL 
COMMON VRE Lo Ea Lace gAN, CONT 
M=N 
mee Ne GleOeGco LO) 10 
ONEW=VELON* (AG 1/AJ1) 
US On | ae 
WNEWS=VELON* (AI 1/401) 
10 Se 
RETURN 
ENC 
CK ESEREKEKK REECE TELE SRR REKEKERE RES EKER SERRA KERR AKEREEKETE RK ZKRERREE KE 
ST SoUEROULING 4 VEOTS 
Cc MNOS lane VeLoGscS DOT Se aD COMUPUTES LHE 
c Peon AC SL ENA Ce Boot PCr et T 
Cc Pye gae CCCADLUALT ES. (1 Barats: VOR 
CK SSSR EKREREKHRE KEE RAAT THK EKER ETA EET ARTETA KEKTE HERE RATE ERK 
SUBBOUTE NZ AVDCIS 
Cem, nee, Ska ,DEUs ,A LEME ,XOLO, (NB ,OSLY,YTEMP, YOLU, cued, CELZ, 
lotege, 2OLL 
Meemeney AeGs7 eV EeLGN, vCLOT,4SLCC,N,UNcw,UTENP,JOLO,VNEn, VITEAP,VYOLD, 
VeNew, a lsehek, «Old 
Geese? AEGI/ AG1,AB1,Af1,A01,A02 
COAROW /AEST/ CDCI, VDOT, *DOT 
CGauOty JAEES/ EXLACC; AN, ACONT 
ACC=(VELON**2-VELCO*#*#2) / (2%aAaJ 1) 
WoOr=acG* (hed ao 1 
VDOT=ACC* (AH Ts AgG1 
@COT=ACC#(AI1/A01) 
RETURN 
END 


bow 





CER KOK KEKERK REKEAEK OAKES EAE HAKAN KEE ERATE TEAR EER KTR RK REE EK 
GesouRgOUTIN£ DELVES 


c DELVEC (DELTA VECTCRS) UTILIZES STANDARD DYNAMIC 
Cc ECUATIONS TO GENERATE LINEAR TRANSLATION INCREMENTS. 
€ IT PUETYSR LCOXS TO SEE #HETHER THESE INCREMENTS 
c EXCZED THE DISTANCE LEFT TO GO TO THE WEN WAYPOINT 
CR SEK EKREEE SKESEKKEKKEEVAKKRAKEEKEHESEKETYHOSKEKEK EK SKEHEEKEKEKR EECA KK KECK AY 
SUEROUTINE DELVEC 
Coe C2 IES DEL XTEME XCLD,Y Stn, DELY,YTENP, YOLS,INEG,CELZ, 
IZTEMP, ZOLE 
COMMON /ABC3/ VELCN, VELOT,VELCC,N,UNEW, UTEND, JOLD,VNEW,VIEMP, TOLL, 
JWNEW;ATEME,AOLL 
COMMON /ABCY/ AG1,8H1,811,451 
CCMMON YAED2/ verete seay eae oan PEOELTES OS Ty A DEL Tanz 
Couron /ABel7 CDCT8cCT, «cov 
COMMON YAEES/Y EWCACC,AN, ACONT 
DELX=UOLD*DELTEE+.5 *UDOTFLELTELR*2 
DELY=VOLLC*YDELTEE*. S*#VDOT* DELTEL**2 
DELZ=WOLD*DELTEL+.5*8DOT*CELTEE**2 
TE (AB S0CEDM G1. ABS (AG1)) DE LXY=aG1 
IF (ASS (LELY) . CT. ABS (AH 1 DELY=AH1 
TF (ABS/(B2LZ) .GT.ABS (AT 1 DELZ=aI1 
RETURN 
2ND 


CER PAK ERE EKA TRAE AEE AEE KEE EE KS OEE EEK EKER AER ERK EKA EEE ST HEE KE EK 


C SUBROUTINE PEE 


Cc Seer (oe OS aARY cOINT) BeNlbeneso a eer Oe aay 

c Pest tO Neen eoemer  onoep UEC Lae JELTa VYSCTORS 

C¥eSREREEKEK AE REE SEAR AEST ERK AE HARSH SE HAKKAR AEE EKER KEES EEX 
nT 


SUSneUlL VE toed 


me mee nel?) Kian, CELA, XTiMP ,XCLD,YNEs,DELY,YTIND, (CLO,2ZULN,cCELZ, 
1ZTEMP, ZOLD 
COMMON /ABC3/7 VELCY, YELOT,VELCO,N,UN 58, OTEMS,UOLD, VNEN,TTEME, VOLE, 
IWNEWSTEME WOLC 
Gems shECUsS AG1,AH1,AT1,AJ1,AJ2 
COMMON /ABD2/ USIALL,VMAL,VMAX1,VMAX 2, DELTEE, DELTV, DELTZ 
, CCMMON ZAEES/Y EWLECC,AN, CONT 
XYTEMP=XOLC+DELX 
YTEMP=YOLLCt+DELY 
ZTEMP=ZOLDtDEL2 
IF (DELX.20.4G1) XTEMP=XNEW 
IF (DELY.EQ.AH1) YTESP=YNEN 
EP P(OEUZ. FOL AT 1) ZTOMS=Z29 E4 
RETURN 
ENC 


ESS 





CPE RAKE NKR K REAR NE KEK KE KEK EKER EH KE REE RETR KE EEE AE 
C SUBROUTINE TMPVEL 
Cc Taey EL eas MeaCe PLY COMPONENTS Meavene les 
Cc Tee reCe MeCOMNECNENTS ASSOCIATED dL THE TEMPORARY 
cS POivT eliesewes (SAP COORDI WATS). 
CER REEEEREKE EKER KEEN ERA KER KE OK XK CSSERERE FRERE SA REK EARS SER KEES EKER EK EX 

SUBROUTINE TMEVEL 

COMO ey A EC2 Zeca, DELi Gk TEMP XOLD, £ NEW. DELY ,YTEM?, YOLD,ZNEW,DELZ, 

TZ Pee, SOLL 

Coyne aces ey elon, CELOT VELCC,N,UNeEW, UTEMP ,VOLD,VNEW ,VTESEP,VOLT, 

TONES, ATONE, AOLL 

COMMON /AECYY AG1,441,AI1,AJ1,AJ2 

COMMON /ABD2/ VSTALL,Y4AX, VMALI, Vinae op, DE LTE, DeLlV, DELTaZ 

CCUMOW /aAEET/ WEOR SV uOR. ALOT 

COMMON /AEES/ Eaeuacc ah, SCONT 

UTEMP=UGLE+UDOLSLELTES 

VIEMP=VOLD+TDCTI*DELTES 

WT Eee= WOLEtaCCOIT*LELTEE 

IF (ABS PPD er cait ica 2 uneo veya ees | UT E4P=UnN Ed 

Peemtaos (Vee) soleacsSotv tod) cANC. ACONT.cQG. 1 VISNP=TNEA 

IF wags WIESD) :GTLABS(ANE) TANC. CONT. EC. 1| A4TEAPHANEA 

IF a ae ee CIESP=UN EW 

TP ee eky . ken 1) YIENP=VN EN 

IF poe e ee fry) BITE *CESANESA 

EPS DeLAa NESO.) GC TO 10 

UDOT=V0. 

GG400-29 
10 CONTIUUE 

IF Hopes pete.e 2) UCLOT= (UTEME** 2-UOLD**2) /(2*DELX) 
20 CONTINUE 

Mra Nineo.s )) GO tO 30 

VDOT=). 

GC TO 40 
30 CONTIAUE 

De Glr =f2. 20. INEw) FYECOT=(VIEME**2-V¥OL9** 2) /(2*DELY) 
4Q CONTINUE : 

IF (DELS.NZ.0.) GO TO 50 

wDOT=0. 

GC TO ov 
50 COUTIV CE 

IP (WTEMELEQ.WNEW) @COT= ( XTEME** 2-WOLD*®*2) /(2*D2L2) 
60 CONTINUE 

VELOI=SORT(UT EAP Ee *2+VTEN PSF 2+ eT SAP** 2) 

hee 


Cee REE EEE HERE KEE KEE EEK EEE EOE KEE KEK EEK EEK ERE EEK EEK KE EEK EX 
Se sUEBROUTINE INRTRA 
C IYRTHA (TNL TIAL EFCTATIONAL TRANSFORMATION) TRANSFORMS 
C MAP COCKDIUAT Pe@men lS 6G A Stoian USED BY FLIGHT 


E-Cc 
Cc PyueoULCisis wil eeCLlars SCUTE AND Z@ POINTS DOWN) 
Cee SOR KREEHE KEKE EERE EKER EEK ER RKO RK EK KEE EERE KEE KK KER EEE 


SUECGOUTINESINRT St 
COMMON /ABC3/ VELGii VELOT ,VELCC,N,UNEW, OTENP,UOLD,VNEW,VTZNE,VOLOC, 
TWNEW, WTENE,AO 

ee ,4dD0T 


SDS, «D3 


es 





CE SSKSSSKKK EES HKKEKVETEKEECK KE EKER EKEKK AHEKERRAK ERE ERE KEK KEKE RESET SE 

C SUBROUTINE ANGLES 

ANGLES COMPUTES THE ANGLE CHANGE INCREMENTS CAUSED 

BY HCVEMENT FORWAED TO THE TEMPORARY POTN. 
EEADING CHANGE, Bz peope 00 Pele 

S THE PITCH CHANG 

SE ecu ea ceived 1s 

+e ex 
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eR KEKKKKEKREEKAKRKEK 
SUBROUTINE A 
COMMON /AEC2 
1ZTZMP, ZOLC 
COMMON 
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21 HE LOE 


eroeee ere GA GLO, «NOME DELL ,YTENP, TOLD,ZNEW,CELZ, 
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CR KEKKSEKKK EEE SEES EEK EEE EEE KEKE EERE KARE KEE KEKE KR EK EEK EEK KEE EEK KOS 
C SUBROUTINE gaOTRZAT 
RCIRAT (ROTATIONAL RATES) COMPUTES THE ANGLE DCT 
Seeens Blot eB Ea DAL HEFSRENCE SYS. (THe ONE 
Aleet VY POINTING SCUDH AND Z DOWN) . 
eer eCTCCCCSCSCECSCC ES SCE ESS T OES So SSCCCCCOOSCSOSCLOSSSCL SEC CL CL EST SSeS SL eT 
SOUGROUTINES ROTRAT 
Coane eG 7 ANEW, DELL, A lome peGclp,! New DEL ,YTEMP, YOLC,ZNon,CELZ, 
TZTEMP, ZOLE 


AANA 


COMMON /AED2/ VWSTALL,VMAX,VMAX1,7MAX2,CELTZE, DELTV, DELTZ 
CCHMON YAED3/ EPSILOT,THEDGT, PHIDOT 

COMMON YABDS/ ESINEN ,THENE®, PHINE*, PSICLD, THEOLD, PHIOLD 
CCMMON YAEES/ EWLACC,AN, 4CONT 

p S1DOT= (PSINeh-ESICLO)/2ETZEE 

™HEDOT= (TEEN EW-TEEOLL) /DELTES® 

PHIDOT=(PHINEW-2HICLD) /DELTEZ 
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e 

C SUBROUTINE ACT&M1 

c ACTE#1 

c GINIICH OF 

Cc PCINTS cw 

CHKMAISKSKHERKKEKEKK TERT 
SUEROUTINE ACTRAI 
COMMON /ABDS/ ESINIR, TIENEN, 2 
COMMON YAESSY EWLACCAN, 40047 
COMMON /ABPIY 01,¥31,01,02,%2 
CCNMON /AEF2/ OL1,VE1,4D1,UD2 
ANG=PSINE4 
02=COS (ANG) #0 14SIN(ANG) *V 1 
V2=-SIN (ANG) #U014+CCS (ANS) #V1 
W2=W1 
UD2=COS (ANG) *ULZ1+SIN (ANG) *VD1 
VD2=-SIN (ANG) #UD14CCS (ANG) *VD 
4C2="D1 
RETURN 
ENC 


Geeta TRANSE CAMATION MATRIX #1) 
OF SONAL 

Eee SaR LA). 
RHR RAKKAAEAR EEK SERA RAE KERR RR RAE EERE KR REE RK 


RRS CRAKEKEK CRAKS EATER A EKEKRRAERK ARETE RAE KEKRREKEREKEEREREE EEK EER EE 


Bee CGlS 
ApOUL [Ha 24 ac125 (20S 2 


Buuee) 5620.2. FESOU5, 2H Tél? 
20s, Voy 68 
Pie 42.004; VD3e ada 


_ 


CRE EKER EEE KK EAE KREKSEEKE SAHARA EERE SHEE REE EKER ERT EE KAEEE EK 


Ses JEHOUTINE ACTRA2 
c 


CIkmé2 ROTATES 

c AXIS. 

CK ASERAKEKKKKRREKE KEE ES 
SUEROUTINE ACTRMZ 
COMMON /ABDUY ESINEW,THENEA, 
CCMMON /AEES/ EG iice Ad MOO NT 
COMMON YABFI/ aan CD toe, 
Gemewe/ich27 UE1,%o 1,401,002 
ANG=IHENE' 
U3=COS (ANG) ®UZ-SIN (ANG) *W2 
V3=V2 
AI=SIN (ANG) *92+COS (ANG) F422 
UDI=COS (ANG) *UD2-SIN (ANG) #W92 
VOI=VD2 
WO3=SIN (ANG) *0D2+CCS {ANG) *wD2 
BETURN 
END 
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HoeoGmanah T ABOUT SHE Y2 (RIGHT WING) 


OKRPKKURSKE REAR AEE CHESTER ERAEK EEK EERE EE KEK EX 


a2,33,¥3,43 
,W52,6 we LoDo UG wil 





CEE ROKREKEKE REKEKE EEE AREER RK DKK OOK ET OAK OEE ERAT AK ERE TATA RHA KR DE 


SeySUBROUTINE ACTRM3 
c Peewee Aesc ake: ABOU THE £3) (NOSE) aXIs 
CER REEKKKKEE KE REEK EKER EEE ETHER KECK EKA DOR EEE OER OTE KERR EK KEE KERR EE RHEE K OE 


SUBROUTINE ACTEM3 

COMMON /AEDUY ESINEW,THENES, PAINEM, PSIOLD, THEOLD,PHIOLD 
COMMON YAEES/ PWLACC,AN, ACONT 

@oqcowe Nbr i7 0101.41.02. 2,82,03,73.83 

COMMOU /ABF2/ CO1,¥D1,401,U02,002,4D2,903,7D3, «03 
Comite, Nera? UAC, VEG, AC, UDO1AC, "DO TAC, avOTAC,P, 0,8 
ANG=PHINES 

UAC=U3 

VAC=COS (ANG) *J3+SIN (ANG) * 43 

WAC=-S IN (ANG) #734COS (ANG) *W3 

UDOTAC=UL3 

VECTACSCCS (ANG) *VD3+SIN (ANG) ®WL3 
WOCTAC=-SIN (ANG) *VD3+COS (ANG) *8D3 


CER KEKE KE KEK EER OKK EE HTT OEE EH EK ERK AOE ARS KD RAK KKK KEK ETE ET ROKK 


© SUBROUTINE ACSAVEL 
C heel noswar tonoual, Cnal VELOCITIES) COMSUTES THE 
C Reyer y ELOC TIL EsaS 1 IPOSED ON ZHE 
c Wetec to owe he NOGaAllTOuAL Cx alaicanarlT -COOZDIUAE 
Cc Sec eee NG. soe IO Ss, Y OUL THS RIiGUT siNG,; 
iS Cae ieee eon Oa CR Tae: ALECAAS TS.) 
CEOS S OS QKe eS SRE SHER AEK AAR RARER KEKE TAAEMRER EEK TER EK AEE 
SUBROUGILNEG AGKRVaEL 
CCB2ON REDGY Seow tore enh DOT, -2ID0T 
COMMONS VAeee 7 Ee liivget Nea, erHlicd, PSsiClo, THEOLD, 2HIOLD 
COSMO 7 AEED/ UEME ace. aw. CONT 
,CONSON Zhers7 VAC vac ,anG ,UDOTAC, VDO TAC, dADCT aC, 2,0, 2 
ANGI=THENEW 
ANG2=P AINE 
eee ree ott Beever 
Sesee ete Eee ayer A Otten cones E 
Re-SIN (ANG2) *TEZCCT+CCS (ANG1) *COS (ANG2) *2SIDOT 
Hee 


ino 





CRE RAKREE RK AA RAKE KEKE A AER EAA AR AERA TREK EKRHKKAKAKRSAAHEKAK ES ee KB URE TAS 
GPSGSROUTINS CAGE . 
c (AISCRAFT ACCELERATIONS) PUTS TOGETHER THE LINEA 
C ACCELERATIONS RZSULTING PRCM TRANSLATION THROUGH 
C SEACE AND THE @OTATIONAL ACCELESATIONS RESULTING 
S FROM MANCVERING. WHAT APPEARS 3ELOW IS TYE LHS 
c @mePEs CLASSIC. 2CUATICONS OF MOTIUN FO2 AN AZDSCRairr. 
CFE SEKEKREKREHKEK KKSD EKER AEST ARR HEK AE KEKE SEKREREE ERA AKER HE EEK EKER ET EE 
SUEROUTI Me BTC ACC 
COMM iON ZAEC2/ MEU a so NP XCLD,Y NE“, OZLY fT E%P, TOLL, 2NE2, CELZ. 
2 ae é 
COMMON /AEE3/ AX,AY,AZ 
COMMON /AEES/ FHLACC,AN, ACONT 
G@OMMON 7ABES/. GAC, YAC,sAC ,UDOTAC, TDOTAC, ¥DOTAC,P,U,8 
AX=UDOTAC-VAC#R+NAC#C 
AY=VDO FTACHGAC #h-wac¥® 
AZ=epOd sC-01C*C+7AC%e 
A=-VAC¥R 
E=WAC*Q 
C=UAC#R 
D=-¥AC*P 
B=-UAC*9 
P=VAC*P 
RETURN 
ENL 


CHEK SREKKKEEE KE KEKE EEA E SRE OKHE SE KEK AKSKEKKEE AAA ETEEK EERE ARARRKKE KEE HETH EK 


C SUEROUTINE ACL&TS 


£ 


e NELS1S (ALSGaAfST LIGITATZICKS) CONPARES TRE 
e ACCELERATIONS RESULTING PEOM A PROZOSZED SOVE ALONG A 
S FLIGHT-SAc! TRAJECTORY TO TEE PHYSICAL LI“TTATICES CP 
ec paper Note FS) GSS SOGNTIALLY THE FHS OF THI 
C Med eC Oe OTIC ars Pa2 fei JScPoRY iCCELESATICHS 
C MA MONR GG TUA OALE@mwna2be TIEY Aac ADJUST 2D SOWNGAAC 
ec fe Wel itUoe UNTILetic 24S ANG LHS Of THES SOUATICNS 
e CF MCTICN ARE ECUATED. 
nena Says ee Ce EE RS SESS R SESS OF Oe Re ERK BEYKEK KK 
SUBROUTINE ACLMIS 
COMMON /BEE3/ AX, AY,AZ 
Orem .ca07 THM At ana ,CLSAX,u25, 10, SHOSS.L,4L,CDO,CDK, AREA, DT SH 
COMMON /AEES/ EWLACC,AN, ACONT 
CALL TH&CST 
ToPmICANe CL oANCAx ANC. ENDACC.LT.tHYAZ) CALL 300S5TR 
€ Wan ect. aNfsi. ORF 4 Dacc.GT. TEMA) CALL REDUCR 
an 





Cex 
c.% 
Cc 
C 
Cc 


10 


20 
30 


40 
50 
60 


70 


80 


BCOSTR 
PG@otneLiCREASES. THE 
MAXIZOM ALLOAABLE PEe&RFO SNANCE 


SUBROUTINE BOCSTR 


@Gumon 7AbC27 iuew, DELS, XIT2MP,XCLD,Y KEW, DELY,YT 
IZTEMP, ZOLL 

COMMON /ABCS/ AG1,AH1,AI11,Ad1,A52 

CCaMON YAEEI/ stot ae 7, ab0T 

Goumey JREES/ AR ,dY, Az 

COMMON /AEEG/ THMAX, ARMAX,CLMAX,GEE, TO, RHOSSL,4L,CD 
COMMON /AEES/ FawDACC ,AN, MCONT 

4CCNT= 

CONTINUE 

[= 2 

Memene SOl0fLYoCR.AGI. 20.0.) GO To 20 

Teneo (Aci) |oT. SEs (ABT) . AND. SES (AG1) -L I. ABS (A11) } 
IF (Es 3851) Geena 20 

ULOT=1.02*UD0T 

CCNTINUE 

ei (AH 1 EC, DSLY.08.A81, 20.9.) GO TO 30 

IF ABS (Al1) ET. AES (AG1) AND. AES (AH1) T.A5S (AT1)) 
IF fis 8252) Serio 3 

VCOT=1.02*VDOT 

CONTINGE 

Men e202 DEL Z.Casitl.c0.0.) GO TC. 40 

IF ABS (ATT) si. AES (3G1) » AND. ABS (ALT Wei ABS (Ait) | 
Tei eeNee3) GO TC 4 

WOCT=1.0Z24*NDOT 

CONTINUE 

IF (AG 1426 DELX- ORs 1G1, 2059.) GO TO SO 

iF ABS (AGI). £C. 269 (AZ1) «AND. AES (AG1) 21.385 (AQ1)) 
Deemed 33) 60 10 50 

ULOT=1.02¥*7D0T 

WDCOT=1.02*NDOT 

CONTINUE 

MEME FO. D=LY.OR.AHI. 50.0.) GO To 60 

TP (NGS {AG1) .©C. 48S (AH1) . 8ND. AES (AG1) «LT. AGS (ALI) ) 
IF Ai. NE 25), GO [0 00 

UDOT=1.02*UDOT 

VDOT=1.02* VDOT 

CONTINUE 

IP (AL 1. 20;,DEL2-O8-AT1, 20.0) Gorton 

TE ABS (ART) «2. AES (A11) - AND. A Wiss (481) .LI. ABS (AG1) ) 
IF fis 4B 33) GG £0 7 

VOCT=1.024VDOT 

aDCT=1.02*4DOT 

CONTINUE 

EXEL S HLCAL 

CALL THRCST 

IF (AN. GE. ANMAX.OR. FNDACC.GZ2.THMAX) GO TO 30 

GO To 10 

CONTINUE 

IF (AN.~GTe«ANMAX) AN=ANMAX 

IF (PN CACC.GT.THMAX) FaDACC=TEMAX 

RET QN 
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Cia oace ouot ea LONS 
Loercacd sv 
PRS OKSKE EA EHKKK ERA SAREE AKER KAS KERHEKK RHR RHEE ARERR EKA KE KEREKSE 


RSREREREK KRARHHH ERK RAR RHKE RHE SHAK VOM EKK HK RATIO REHM RE KRE KEKE KKATD HOKE” 
USROOTINE 


UNTIL 


Ee COLeec IEA, ce uZ, 


O,COK,ARoaA,OTCH 





SRE OSSSSESEM SKHKRERKHHERKRHEKKKAKRKARKKEARAKHEEKRECDKESRERKAHRKREKEKEKRAKERKREKRHEK KER EK 


Cc 

. SUBROUTINE REDUCR 

c we LCCry. 

EUGis sa sssanees ces atwe ces 8S 
SUEROUTINE gELUCS 


CiwaC esteem Dee olLUCES Tha! \ Ew 
Rell meGorllOn lO Get LOADS 
Pierce. 5 

TRADER ARARK HR ERR TE EKER TEX 


eG 


COMMON /AGC3/ VELCN, VELOT,VELCC,'%,ONE*, JTEMP,UOLD, 7 NEw, VIEMP, VOLE, 

THWNEW, STEME,ACLE 

COMNGN MZAECH/ AG1,AH1,AI1,401,3¢2 

COMMON 7AED2Z/ TSTALL,7MAX ,VMAK1, VMAX 2,DELTEL,DELTV, DELTZ 

COMMON /ABE37 AX,AY,A2Z 

COMMON /AEZG/ THMAX, ANMAX,CLMAX,GZE, TO, 3HOSSL, dL ,Cv0,CDK, AREA,DTDH 

COMMON /AESS/ FWLACC,AN, MCONT 

GomsouLecy X1,27,2,¥1, ITS, 1722 
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10 CONTINUE 
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VELON=V1 
20 CONTINUE 
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CALL THRUST 
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GO T0 10 
30 CONTINUE 
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END 
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Cote ear oty Fa fem, iss Sd, PRINEd, PSTOLD, Ids Oud, 241Cue 

GGtnel YVAEEZ/ AXA AY, Ac 

Coupe, GALLS / Thar Matas ,2LUAt Gee, [0, SHOSSL, «L,CD0,CDK, AREA, DT DH 
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SKREARHARARKEKEAAKREAR AD ESA RSKRSAKSE ES SHEARER K EKRERAKEKRERAEAERAKE ARES HEHE EK 

BLOG Ke DADA 

KKEKKEKKARAKKAK EKER KKK ER EESE KARE KAKA EEE ERE AEKAGEKSE KERR THE EE 
SLOCK DATA 


wae 


COMO 1 ice, <1,% 1.2157 1, ITR,11e2 
COMMDN “ANTS MISX,MAMK, MEN, AAXY, MINX1, MAKK1, ALIX 2, MAXKK2 
COMMON YMN/ LEAUL 
COMMON /PAR2/ XGUN(T),ZGUN(T) ,2GUN(7) ,XSAM,YSAM, ZSA2, G2 (7} 
Cemeoie e ane Abs MAX, cli lt, doewX, SOD AES ,BAALT, d2dLu,BR4AY, BREMLN, 2 
TRRMAX, BID ,AMTFE 
CCMMON /AECI/ ata eran cect (1008) HH (1000 
1) nl (190) 442 (VCO) g 821999) g4G( 1990) .T Vue Ice 
OeOumeo ) Gn kn, LTD AG, CLO, (Nad, DELL, {2242,YOLD,2N2s,DELZ, 
IZTEMP, ZOLE 
GOUtO sec tye LGN VELOT ,72LCC,N,UNER, JTEMP, JOLD, UNE, VTE4D, OLD, 
IWNEN, ATEME, a CLL 
COMMON /AEDIY AA1,A21,4C1 
GOMMON /AED2Z/ VSTALL,JMAX .VMAX1, VMAX Z,DELIEE, DELIV, DELTAZ 
CCMMON /ABD3/ ESIECT,THEDCT, SHIDOT 
CCMMON /AELG/ ESINEW, THEN En, DHINGd, PSIOLD, THEOLD, 2HIOLD 
Coen ere een as ,CLMAk,G5n,00, sHCSSL,4,CD0,CDX, AREA, DTCH 
COMMON /TAR/ TARGX,TaAbsY : 


on ee Pe ew eee ee ee Ewe eS ew Ss TSE TFT ers FB SSB FF ws oO | PFs ess KOZ esr wBwes SI Oe 8B Fess ws BSGew 2s SS wees @ os 


Se eLasd Catv sa 
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CATA ILBAUL/1/ 


=e ern eeeees @ee ewe oe wT ZT ewe |S KC ees ee SSB ee swe Ose sw |S 2 Ow BW Sew F™BZwswsei_ Zs eswewe = wei ses TS Os | we Bees =| | = 


—_—_e ee at ee Oe s Oe SB Oe Fe 2 ee ee KF eee 2 2 2S 2 2 ws Oe 2 S22 ee 2 2 2 O28 OB FTI BFW ses F2 FFF 2 22 2 2 222 |] =a 


CATA NINX/s100/ 
DATA AALK7 3700/7 


DAA el 41/3 
DATA 4400173 


—_—<_ = oe a SP oe OP ow ew oe ee oe ee Se ee oe ee ee ia se ee ee ee eee eee ee 
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Bama MENS 273950/ 
DATA MAXX2/4V00C/ 
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MeccmnOn : GCOORLENATES FOR TES cHREE eLudCads 


_—— =e a ew ere ae ee ee ee ee i ei is i se ee i ee i ee i ee ee A i ee eee ee ee 


DATA MIN Y/400 


DATA ¥/2300/ 
C PREDETERMINECD WEAECN ENELACEMENT EARAMETERS 
Dae Ce GIN ae d0n) 16200. , 130600-,13400.,11300. , 15000. ,12300./ 
DAIA YGUN790C0.,4200.,720C. ,8000. ,97 00. ,10900.,7500./ 
Ber ede 40. , 20. ,20., 006 960,20 -/ 
DATA £5A4/1200G2/ ,1SA2/0 0005 / 2548/3 J6/ 
DAmawcmy 0005) 10c0., 0c. ,1460.,2500.,2500.,2500./ 
© TARGET COORDINATES 
C CCNVEESION FACTORS: RADIANS TO DEGREES 
C METERS TC PEET 
DATA 217D/57.29573,/ 
DAT AMRIT £/3.28C84, 
C G&AVITATIONAL CONSTANT (i/S2) 
DATA GEE/9.807/ 
C SIMULATION PARAMETESS 


E CARDINAL COMFASS HEADINGS (RADIANS) 


DATA 44171-5767907 ,821/3- 181593/,AC1/4.7124/ 
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Cena Poa bate ree TESA ErCRAPT (DISZSSiONLESS) 


ons, °°. © 
C MAXINUH AIRCRAFT GEZ-LOACING (JIMEASICNLSS)OOSC~C~CS~CSSSCS 
ce ©. 
C RHOSSL TS THE DENSITY AZ STANDARD SEa-L2VEL CONDITIONS. iT das nn 
as lL)lhlhlUmUmUUmUm™U™~“—=COs™sO~O~S~O~S~O~S~S™SOOCOCOOOCOCOTCS 
€ STANDA&D SEA-LEVEL TENPERATURE (CEGREES 4) ~~ 
Ko) !|lL!llUlU!lUCU™C™~;~ 2 T3O#«‘<=<=<=i<‘ ‘ ‘(“ ‘ ‘i‘ SOS! 
€ TESEEEATURE LAPSE SATE fCR THE TRCFOSSHERE (DEG S74) 
eR eg a eer 


ae @ 8 @22e 22828 @e BB SO SBS SE 2 2 22 2 2 2 ee ee Se eS See Se eee eS eS ee ee Pe eS eee ee ee ee es es ee ee ee Se ee ee 
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—_— ee ee ee ee ee es es se es ee ee ee ee ee ee ee ee 


ewe SE OS SOS OSE SS OSE SST SB S28 S28 28 2 |] Bee Owes 2 SEO SS SSS VB SSI SB 2 SEO SOE SV SSS ee SB SB OS 2 SS SOS Se Ss Ss See es eS ee 


ee ie eS lrr—“i—OSOSOCOCOCOCOCOCOCOOOOO 
€ CCEFFICISNT CF DAAC AT ZERO ANGLE CF ATTACK. SSS 
Lave 57 «°° «° &#«° #  #« « « # °©°©}|)|..CCCU.U 
MieccrinebaiG COzrriciist == += +. | 
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C MAXIMUM ALTITUDE AFTER ZNTERING PCE-UP RANGE OF 4 Kd. (M) 


DatAy ata axk72u50. / 
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SP oe oO RANGE (167 E&RS) A POP-UP MAY 8t COMMENCED 


( 322 wwe ew wewe es eee weee 22 we ewe eB eee @ 2 ee ws we waewaeew ae wee ee ewaewe 2a w 2 ae @ ee eee @ ow oe ewe oe oe 
: DATA PCPMIN/6000./ 

C MINIMUM ALLOWABLE FCE-UP ALTITUDE (BM) 

(ee eee ee ee eee ee 
i DATA BAALT/1000./ 


MeeoGic RELEASE UWAXIMNOM ALTITUDE (M) 
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DATA BRMAX/200C./ 
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Smee oue RELEASE SNINIGUM ALTITUDE (%) 


DATA BaMINs100./ 
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o—- 
E MAXINUA BOSS RELEASE FANGE (M) 


DATA BRRMAX/1000O.,/ 


Cer 2-3-7 err ee = wee Oe we Oe e ewe oo we ee ow ee we ewe oe ew ew ewe wwe 2 ewe ww ew we eww ee ee ew @ oe 


SeeeentouUM BOMB RELZASE saANGE (8) 


DATA SRREIU/10C./ 
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we OEE eS Seen wee Owe Ow BMP es Sw eee Fee Bw ee ee eee ew ew EB ee Se eee ew eww we See we ew eS Se ww ewe ee Oe eee ee 
-— —— = oe aw ee ee oe oe ee ee ee es oe ee ee ee ee i es es a a we ee i a es 
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oe ewe ee ee ee a a a ee es eee i eee ee ee ee ee ee ee ee ee ee ee ee 


DATA DELTV/3./ 


Cree 7 ee = =e wee ee eee SS See ee eee ee eee eee eee ee ee ee ee ee es eee ea ee 
ee eC niGeatee toe CR ARY PARAMETERS £OR Tit INT TIAL CONDITICNS C? 
Peres Ankenes te bates LESS seicl 32 ExTEnED Sutiiacs edad. 


Creme ere eere rn wee wee Se See ew ee ee Oe eee es eS eee eee eee Oe SE OSE ee eee eT ae eee eee ee ee eee ee or oD 


BAHL dE/92058170 68050815325 24d 0hog eesgn yeh 79-7 
C INCHENENT OF TIME CHANGE (SECONDS) = = 

MUthmeieitee77.007 9 lc Ct™~—“—CsCi‘“‘“‘<i<“i<“i<“i“i‘“i‘“‘i‘i iw 
€ INCREMENT OF ALTITUCE CHANGZ(50 PT INC CONVERTED TO METERS) 


aE SP SSB SB SS SSE SS SB ewe ew Oe eS ee ee eee eee ee ee ee ee ee ee ee eee ewe ee ee ee ee le ee ee ee eee eee ee ee ee ee ee eee oe 


aeat a eee Eee eI Ss OSE SF SP Oe 8 See 2 See SP Se SSOP SS SS SSeS SSeS See ee ee ee ee eee eee ee eee ee ee oe oe 


DATA GOLE/2095/, 1619/9. 75001 ie 

Dp eee ts. /, .FEOLY/U. /, 2HICLO/U. / 
DATA VELCC/200~/ 
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Ree NOX 


Pesce irneGeNERATOR WITHOUT THE GRAPHICS 


CE SRERRRARH OHREKEE EKA HATE SKK RHA HK OKRA AEKEKE ERAT ARAKRKRE KK EEKK EE DEKE HX 


C SUBROUTINE BIGCAL 16MAR84 
Cc Pil iS Gemeue AS § TROUSLE-SHOOTI{NG CONVSWIENCE. 
€ Mer Tes CIGAR rard GENERATCA PULLED FRO% IS5“PIP2. 
E (Eemntss. fACH SU38DUTING AD aARLTE-TO-FILS 
e Si meeesT TN TT FCReOBS EAVATION PURPOSES. 
C CHANGES AND COMMENTS ARE CURRENT THROUGH I16MAR84. 
aes Diaries ons eatune 

C Ri@emeGoe ulate OFS2ATES AT A LEVEL SPvoe “AIN 
eC PROGRAM AND ACTS aS A DRIVER FOR THE SUBROUTINES 
C Pes ee Den TU ar l. 
COR AOE ORE CHER EAE ERE T ESTA KASH AKASAKA EERE EER EKER EKER AK RAKE eX 
e SUEROUTINE BIGCAL 

COMMON ZAECIY «9X (1900), 4¥ (1900) ,82(1009) ,4#U(1090) ,#V (1000) , an (1060 

W) g€H (1090) 42 (1CS9) gan (10 One de (N00) 6 141000), nor 

COMMON /ABC2/ XNEW, DELE,XTIA2, XOLD, ¥ NEa, DELL, (TEMP, LOLD, ZNEa,DELZ, 

1ZTEMO. ZOLL 

COMMON /AEC3/ YVELCN, VELOT,VELCC, %,UN 24, UTEM?,JOLD,VNEW,VTZMP,VOLL, 

1WNEW, ATEME,AOLCL 

COMMON /AECS/ ACT,AT,AT1 Ag} 402 

CO NEDO NS aah. va k,6 SAN1,09AX 2, DELTSS, DELTY, DELTZ 

cceton YNEES/ EWLACC,AN, MCONT 

IcT=2 
10 4CONT=0 

CALL TSNEEM 

CLs WEACLD 

GAts 4VELCS 

CALL AVDCIS 

CALL DELVEC 

Gilg cee eus 

CALL PMEVEL 

Gar. fNatas 

GYEL ANGLES 

CALL 20T3AT 

Gare Aer Se 

Gees feu He 

CALL ACT RMS 

GerL AORUEL 

GAEL 2CACC 

GALL ACLMIS 

Gait XCHNGe 

CALL WAYENT 

CALL PILE 

ICT=ICT+ 1 

LF eee aes oer ie bere ee: 1c) 25 TO 20 

IF (ASS(VIEMNP) -GI.ABS(UTEMP) -AMD.DELY-EG.adl) GO TO 20 

Ge-toe 16 
20 CONTINUE 
G RETURN 

STOP 

OND 


de 


CREE RKERR ERR EEE ERK KARR KEE EHR TRAE EERE RARER ERK AKER KE EK K EH EET EEF 
GC SUPBOUTING Tanrka 


qe 


© 


Ec TRANIGEOCRMOTAKES TRE SEAT VALUE VARIASLES SUPPLIED 
€ EY TEE GRAPHICS SUS2O0UTINES AND LOADS THEA L'TO 
ce Wines SPECT EIC TO THIS ATARCSAP® TEATECTORY 
fe GENESATING PACKAGE. 
COHORTS ER ESA RETR EE ESE EES PREP HEEKR AR CREEK EEK ERA ERK KX 
SUEROUTINE TRNERY 
GO4JOs GiCeey Sine tly 1D a it 52 
POON AN EGQ7 eh ow Dee K TENS ACLD,Y New, DELY, (TEMP, (0LD,2NEA,CELZ, 
1ZTSE>, COLD 
COMMON /ABC3/ VELCM, TELOT,T2LCC,1,UN Ba, UTEMP, UOLD, VNES, VTEME,VOLD, 
VENER, 4TEMP,ACLC 
cCO“aGN 7ZAECD/ EWLACC,AN, ACONT 
ANEWS41 
YNEW=Y 1 
N= 21 
VELON=V1 
RETORN 
ENC 


CHK RARE EKS RHEE E ROR TARR SKK KE ERR EASE KE KR PRAOH KEKE EAE ERS KEKE R KKK EE KE 
© SUEROUTING NEWOLT 
C 


NEwCLo GEG ZRAT ZS PPNiGodie cor On “COC POWEul > GFL wer. 

ee eee : : ays a n” _ ace pie 5 .- 

G oomeoo sae ema eC (OLD) AND TNS DeSTR2D aSY POINT 

C Coa enc Le cA {NS aw) 

C#EVOKRAERKKKETARECE REET SEK AKER ERE RARE KK EKA KK RAE RARER EKER EERE EEK ERX 
SueancuTi wbevcwC lp 


CGcnON  /HeCZ/ 
teak See Ol) 
Va 
iE 


SO iO y J AEGIY pac 1. pele) 2 
COMMON /AEES/ FalacC aN, 4COuT 
AGI=XNEa4~-XOLO 

AHI=YNES-YOLD 

AL1=2iZa-ZOLD 

AJ1=SQRT (AG1**2+4H1**2+ A112) 
AJ2=S0 RT (AGI # #2 +A 1* #2) 

RETUR 

ENC 


32 


CER SOSH EEK OREO KEKH AERA A KKA AAR KEES RRR SEER EAE EKER REE EERE EE AE 
SPoUCHTCUTINE SVELOS 
€ UVeleCsa (tae VELOCITY COPRECNENTS) Bucs Ly foo ne 
C Molo Gw ie GON CONS Nilo Sol deem CURRENT wAYPOLG? (OLD) 
Cc WAC eee UST Snr EboO mAYPOLUAT (NEa). Mie OU Se Ou: WE 
C Sonn On omaee ras (0) 20 AVOLD RESEti Luc THES FeLOciItT Y 
e Corre uss wo La SLiadeia a #20 WAYSOENT [5S RECEIVES 
C Crea ener LETT ATION sHi€d £S FacaL IS 2EACHED 
S ime Ss 20084. INTER AT. 7S suse OUTINeS. THE 
Cc Ceol wategee sis et LS TERMED MAP, Ist., Y 200.aTS NORTS 
Ce SHREK EKER EERE AES ARK AKHRAEAKRARKAARKEEREK SAAR ERE EAE REAR EKEKR EHS RRA 
SUBROOTINE MNVELOS 
CCe#4Os (nes PNG GAM d,AL 1,A0 1,ad2 
COO uv Meee eee ene re LO LU VELCC, uw ,UN aa, OLSée,JOLD,JNeEs,VYITIM?, 7OLC, 
Taso AC CEE, AOLL 
COMMON Jmeto/ = WENGE ,AN, ACONT 
= ky 
ie. eee GG TC 19 
UNEWS=¥ ELON*® (AG 1/aJ 1) 
VNEa=V ELON (AH 1T/4J71) 
WNEa=V ELON (ATI 801) 
10 See 
RETURN 
END 
CORR RERRAKS AREA A RT EAE ESHER SAREE ERRATA KKK RAK LKR EATERS EX 
C SUBROUILIUES TYDCTS A 
GC Soo es won lo LOC LLY DO I COMPO INTS) COveUTesS THe 
Cc itiee awe celina. LGN COV EONENTS 
C TM ew eoo DMRS SS. (7 POTITS 5029.1) 
CER RARER AEE TKS REAR RROKREPRKR SARE SAA KKT ARS AER PKR IARC KT AREA EAR RRS HK HR KKK 
SUE ROU © Live AVECTS 
eee ee ee a ek Oe ECL Dy) NEW sO ELL,f SSO, YOLT 2N ein, CELZ, 
aw 
Sermo BANeeo7 VE EGN, JELO] (LE LCC, ft JNEW, UL ENP, ,UOLD, (NEw, VIENME, VOLT, 
1UNE@,) AT BPeECAOLLE 
COMMON ,aABC4/ AGI, AH] all, ,AJl, AJ2 
COMMON YAES1/ Ueot, WOOL, wsot 
COMMON A Palace jan, COL 
ACC= (V ELON**® 2-VELCO*®%2) / ( Z¥ Ad 1) 
UDOT=ACC* (AGI /AJ1) 
VECT=ACC* (AH1/ 401 
WDOT=ACC# AT IZ AGT 
RETURN 
ENC 
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CHK RAPER KERR E CHAAR EERE TERRA SHARC SARA EHKARE KE ARARRERK RHE KE HAKKAR EE 
C SUBROUTINE DELVEC 
C 


CELVEC (DZLTA VECIORS) OTILIZES STANDARD DYNAMIC 
Cc BOUAITTONS TO GEUTKATS LIWEAS TRANSLATION INCREMENTS. 
Cc fT FUBTEER LOOKS 10 SEE wHETHER THESE LNCRENENTS 
G Pee Oe Ges DISTANCE LETT TC GO TO THE NEA JAY2OrINT 
eed Ree ces eae eee RES ESS Ce NE NS ORs eee 
SOSRUUTINE DELVZC 
Sonsoe Vimeeey eke ee 0 eX , XTL4ND,XCLD,YNEW,DELY,{TiMP, YOLD,2N=W,CELZ, 
TZ42,Z0LD 
COMNHOT /AEC3/ VELCN, VELOT,VELCC,N,UNEW, UTESP,UOLD, VNEW,VIEME,7CLO, 
TWNEW, ATEMP, AOLL 
Gomme Une JAECR 7 AGIean 1-AT1,A31,A02 
Com 7Adde voter lak USA a1, 74aL2,0ZLTES, DELLV, DELTAZ 
COMMoy 7AbE1/7 OCCT, 7foT, «bot 
COMMON ¢sEz9/ FWOACC,AN, MCONT 
DELX=TOLLC*DELTEE+.5* UDOT *CELTEE**2 
DELY=VOLE*DELTEE+.5* VDOT *CELTEL**2 
DELZ=SCLL*DELT EL +. 9% eLOT FLELTEL**2 
Per hooper c. Gil tes (as | B21 tac 1 
If 33 (CELT G2. 233 jul DESLY=4H1 
IE AUS (EEL2) Ct. ABS (Al eter 1 
RETURN 
ENC 


C* ERKKSOSKAKEAKEKKKRTAES KEE HET KRESS ERASERS EKA EBA SEEKER ASEEKE ERATE KREKKARS 
C SUBROUTINE TMEPNT 
G MEreEe ITEPen aye COLT) Gilexares & TEMEOZA RY 
e Geena S8kC Eeai55D OGY cHs D2LTs. 72079055 
Cx OQOBRAEREREKKRHORERKHKT OHSS AARKEKEREEKE ERAS SHAE SKE EEEKAKRSERKEK EKA AKEKRAKRE ESS 
SUBROJTINE BuPENa my mt 
meee CGI 7 1NER, DEL. Xcode, ICLD,Y Nex ,DELY,YTE%e, YCLC,LutK, LELZ 
VZTim2, ZOLE s ; : 
@oeeoe7sscay VYELCN,VELOT,VELCC, 1,U7=EN,UDEMD, JOLD, JNEW,VIEMP, VOLE, 
WaNBA, ATEME, aACLL 
GOmeon J AECIS7 AG!) ,AHT, All ,AJ1 wiz 
COMMOI /AED2/ YSTHLL, VMAX, ae 1 W4AT2,CELTE2,DELTV; DELIZ 
COMMON /AEESS/ FRCACC,AN, ACONT 
XTEMPS=XOLE+D ELK 
YIE4P=YOLD+DELY 
ZTEMP=ZOLL+DELZ 
LF (DIE X~ 20.461) ITE MD=XNEW 
IF (DELY.-EQ. ABI) YTEMP= YUEN 
IF (3L2~2Q- 421) 2TEMPEZNEW 
RETURN 
END 
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CER ROK KEKE KK XKAKKRARA ADE AKKARAK ARH ARREARS AAR KRREKREKREEK ESHER REE OS 


GS SUEROUTINE TEEVEL 


E TMEVEL (TEMPCRARY VELOCITY COMPONENTS) GE“ERATES 
C Peeve ete MEO TEOn STS ASSOCTITS) wIPH Tis CENPCRARY 
e PCINI IK SPACE (MAE COOGCINATES). 
CFE ARSKKEKRHREEKKKRAEKEKTNE REAR ERK EK KK SE CRRA KRKRKEKCREKKRKCKRARKETAERKKRAEAKAKHAKEKKRAEREH ZOE 
SUEROUTINE IMEVEL 
Como ey eee, ee Le ok TEMP ,XCLO, Y NEW, DELY, (2240, YOLD, 2VEu, DELZ, 
1ZTSNP, ZOLE 
COMMON /ABC3/ YELCN, VELOT,VELCC,N,UNZW, UTEMP,UOLD,YNEs,7T2ME,VOLL, 
VWNEw, ATEME, AOLL 
COMMON /ABCY/ AG1,3H1,AI1,Ad1,a2 
COMMON, JRED2/ USTALLGWMAX VAAL1,V4AX2,DELTES,DELTV, DELTAZ 
COMMON /AESI/ UDCT,VCOr, «cot 
COMMON /AEES/ FaCACC,au, ICONT 
UTEMP=UOLD+HtUDOT*OELT EE 
VEPEMD=VOLC+VCOT*#OCELT ES 
@TEMP=sOLL+WDCT*DFELT SE 
Te (RBS (UTEN2) 1GTeAdS (UNES) ~AND.MCONT.£0.1) UTEMP=UNEN 
IF (Aas VIRME) -GT-agS (UNEM) ANE. ACONT. ER. 1) VT S4D=V NEW 
LF ABs ATEME) CGTAES (dd Sa) eANDSACON TDG. 1) ATEAD ARNE 
IF (DELRLEV.AG1) UTE MSSUNEA 
IF (DELY.EQ.AH1) VIEYPHVN ER 
IF (DELZ.EQ.AI1) aTEMBP=4N 20 
Pemioetr. Ve.02) GC TC 70 
UCOV=d-< 
GOmra) 20 
10 CONTINUE 
If (UTESE.CO.ONEN) UCOT= (UTEMES**2-UOLD**2) /(2* DELS) 
20 CONTINUE 
He wee. 0.) GO TC 30 
¥COD=0. 
GO TO 40 
30 CONTINUZ 
Wey memes soe NS) fcOt= (VT Seb **2-VCLEDe*2) /(2*DE=ELY) 
40 CONTINUE ‘ 
IF (2b2-NE-)- ice areas 0 
#COT=). 
GO TO 60 
50 CONTINUE 
IF {WEEME.SQ.WNE®) SCOTS (WTEMES*2-wOLD**2) /(2* DELZ) 
60 CONTINUE 
VELOT=SQAT(GTESD 242+ VTEAD##2 + wTSNT** 2) 
ZETURN 
BND 
c* KEBPSSeeeeKecggeKgsegeece se Kae ggcte eae KKK KEKEKKEKREKREKEEHESH SEEK 
C SUBROUTINE INRTR2M 
e INRTSH (INITIAL SCTATIONAL TRANSEQAMATION) TRANS EQa YS 
C MAP CCOGORDINATS CCHPBCNENTS A SYSTEM USED BY FLIGHT 
a PNANTC IST S (Y SCINTS Sure AND 2 DOTNTS DOWN) 
CRKERKEKRKEEEK EK EKER SORE AKRARAREKEAK EKA SHEERS AKASH RKKKKREKREEEES RMR aKATKEKAE KE 
SUEROUTINE INRTR 
COMMON /ABC3/ VELCN,VELOT,VELCC,N,UNEW, UTEMP,UOLD,VNES,VTEMP, VOLE 
IWHEW, ATOEME,WOLE 
COMMON /ABE1/ CDOT, VLOT,¥DOT 
COMMON /AEESY EWLACC,AN,MCONT _ 
COMMON /ABFI/ 01,91,41,02,72,42,U3,¥3,a3 
BE Olue A br27 UG YCt.4D1,.UD2,V02,4D2,UD3,VD3, 4D3 
U1lSUTESP 
V1I=-VT EME 
pl=-wTSME 
UC1I=O0D0T 
VD1=-VDOT 
WDi=-w DOT 
RETURN 
ENC 





CHR STOKKE AETHER ERAR EHR ETSE CSE EKR ARRAS MEREKERERAR KTH ARE RT AEX ATE VE EH SE 


SeSUEROUTENE ANGLES 


c ANGLES COMPUTES TEE ANGLE CHANGE INCREMENTS CAUSED 
C SUG T eet SOSSA5D TO The TEMPORARY 2GLINT.OSINES 
e BomMESM Ee ADTIG CHANGS. REFERENCED TOMESE X AXIS. 
€ icc Gas PLICH CHANG: REFERENCED TO THE 
C H@RMIGNGAM SLANE. DPARSSa [1S TEE ROLL INCREMENT ABOUT 
Seek 2X75. 
Ee anette iar te ee ks eo ales nad ote wee é els oa xed ae eee 
SUBROUTINE ANGLES 
GCoutom PRECO7 XHEN, DEL, XTEMS ,XCLI,YNEa,DELY, {TEMP, YCLD, ZNEW,CELZ, 
IZTEMP, ZOLE . 
So ee eC eee VELOT, SLCC, ,0N EN, UIEN2,UOLD, Vea, TEME-VCLD, 
TaNCa a TENE, AULD 
actor 7AeCu7y AG 1,anieAl 1,101,402 
COMMON /AEDI/ 3A1,AaB1,aC1 P 
GOqeoy JAED27 VSINLE, 724% ,3MA11,V48X2,DELTES, DELTV,DELTZ 
Pomowe /ABDU, FoiNea,tHedaw,ePEivew, PSLCLS,TYEOLD, 2HI0L5 
COMMON /ZAEESY EFUCACC, AN, MCONT 
COMMON /AEF&7 DS,CSE,0SP? | : 
ES*SQaT (DEL kes ceusly tees OEL2**2) 
IF (BELA~HE.9-) = Le 10 
Peete Osos Abe pert. ul.0.) PSINEW=AA1 
oes Ca On ees orl’. Gi.0.) PSINEh=-AAl 
GO "TO 20 
10 CONTINUE 
PSINZA=S-AIAN (DELY/DELYX) 
i Dig UG Cah os0. 0.) Pst EN=0. 
PEMSEIeee Ts Wee SDL DSLY. LT.3.) PSIlvea=Al1+2S 1% 2a 
Dip ee) Cele s sc. 0e) 2SIi2e=A51 
IP SET ELIT. OL ANE DELY Gi ol) ESINSH=ESTNEN-AB1 
20 CONTIVUE 
THENEX=A SIN (DELZ/C3) 
TataAl=(PSINZA-SSICLC) /DELTIE 
Meester a eG 2.) SH Ete s=47 NY (32s (12 NSA L*Y EL OT/9~.7258) } 
omes Ti bwett. 0.) ob ises =-A TSN (ASS (TRNSATEVELUL/9.7959)) 
Mee 2052S TCLE) PHI NES =ERIOLD 
RETUQN 
ENC 


CER KERR EERE AKASH RRR TASHA ORK ATH OAR ERAT REE AERREE SE EEE K EK 
C SUSROUTINe &RCTRA™ 

C Mean bOma tt ONR antes) COMEUTES THE aNnGlLse DCT 

cS SeweC Ve Woe er omer AL AfSeoReiCS SYS. (TAE ONE 

C @pecea © FOLNITING SCATA°AND @ DUaN). 

OS OI Sg oe Aa ae eee Pee ee ree 


SUBROUTINE ROTHAT 
Cleo ey Ac el, how, DALk, ATESS XCLO, i NEW ,DELY ,YTENP, YOLO,ZNb4,CELZ, 


Soe Jemep27 VSGALL VEAX,VNAX I, VMAX 2,DELTEE,DELTV,DELTZ 
COMMON /ABD3/ PeiLot tt jOr . FAIDO" 

Seon eee 7 ESINEW, cH SW Ed, PHLAEd, PSIOLD, TUEOLD, 2¥YIOLD 
COMMON /AEES/ FwlaCC,an ACONT 

PSIDOT=(PSINEN-SSIOLS) /5ELTSE 

PHI DOTS (FHIN EU-PEIOLL) 7D ELPES 

PHROOL—(FRINeEW=r BIOLL) /DELT Ez 

RETOAN 

ENC 
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SKK H AERA RK EERE EOP EAEEEK KEAE KE KER EKEE OKT EAR ERK E REESE ERE EHD H ETOH 
SUBROUTINE ACIS 
Acie (ala C 2A 


Cc 
= 
DiAanoe Com AL LCA MATRIX #1) SEFECTS 
Cc RCLTalIcCnNeor A rs 
< 
Ss 


PT 
IRCRAFT ABOUT THE 21 AXIS (Pus 
Same gis WOd fC CABTH) . 
BK AKAM KEKKEKAAKRKS TEARS RE KAKS RETR AE EKK ERK EK RAK ARAKARE RARER EKRTER EE RASH EAS 
SUBROUTINE ACTAM1 
COMMON /AEDU/ ESIUEW,THEN EN, PHINEN, PSIOLD, THEOLD, PHIOLD 
OMMGN ZAEES/ FYLACC,AN, MCOUT | 
COMMON ZAEFI/ U1,¥1,41,42,%2, 42,03,73,h3 
Goto ere, (0b 1 Voleg pd UD2,Vb2,.d2,0c3,VD3, 403 
ANG=PSIY EN 
U2=COS (ANG) *U1+SLN (ANG) #V1 
V2=-3TA (ANG) #5 T4CCS (ANG) #71 
ya 
UL2=COS (ANG) *OD1+SIN (ANG) *VD1 
YD2=-SIN (ANG) *UD1¢CCS (ATG) *VD1 
WD2J=6D1 
RETURN 
2MD 


CER SRA HRK ERASER EAE E REA KES SKK EERE EEE KART EKERRA AAA TARE TEK ADDR EK DE 
GI SUBROUTEINS ACTA 2 
Cc 


. ieee Oi teem PeeAleC Al T gapOULT THeeY2 (RIGHT wt NG) 
CK SORRKAKKRE RT KSEKRK ESET ERR ARE EAE AREAS KEK RE EERE KER ERE AKA ERR KER AAR EAE 

SULROUTS Nr ACTREC 

Sorte y PEL w Yee SO IN EW,  iceecd yeh Lica, PSLOLD, TiEOLD, eH LOLD 

COMMON /AESS/ Fal act ,aN,2COnT 

Gemvenm /Abri7 Ut. %1,.1,02,72,72,U3,73,03 

Soe Lake / Pei, ola | UD2,702 .Dz,J03,753, 103 

ANG=TEzuka ‘ 

U3=COS (ANG) ®U2-5i (ANG) #42 

V3=V2 

S3=SI8 (ANG) *02+CCE (AiG) *¥W 2 

OL3=COS (ANG) *UL2-Sik (ANG) *4D2 

VD3=VD2 

WD3=SIN (ANG) =UC2+COS (ANG) *WD2 

RETURN 

ENC 


CX EEK EKKKEK EKEKKKEK SASK EERE TEAK A HKAREKEEK SKREKSAEKREKKKTKKETSEKRKEEKRAKSEKERE EX 


s SUPROUTINE ACTRI3 


ReioleswLaGante ABOUT Tilew<s (NOS Se AXIS 
CEASERS AAREAK AERA AREAS EKKO RE KAR KKK KREMER ERK AAG EEE EH 


SUBROUTINE actas3 


COMMON /AEDUY ESINEW,THENEW, PHINES, PSIOLD, THEOLD, PHIOLD 
COMMON YAEESY EaCLACC,AN,MCONT 

Gomer /ADP17 U1,V1,41,02,72,42,03,8 3,283 
SOsnOwe7AEre 7 PUG 1 VC leaD 1,UD2,002,4D2z,0D3, 793 D3 
Cams /ABL3 7 POG VAC-aiC ,CDOTAC+ 700 TAC, ALOT AC, 2,9, 
ANG=PHIN Ew 

UAC =U3 

¥AC=COS (ANG) *V24SIN (ANG) *¥3 
WAC=-SIN (ANG) #V3+CCS (ANG) *W3 

UDOTAC=UL3 

YDOTAC = CS (ANG) *VD3+STu (ANG) #903 

aADOTAC =- SIN (ANG) *¥D3+COS (ANG) *0D3 

BETURN 

ZND 


lees 





C ** RRRERKKAKAEKEAKEKEKRKEKCKEE HES HEOKE RHEKERHKHSREKSEK AKRKASSRKRRAKAKRKEKKRTKTKKERAEREKREBEAKERS 
@ SUBECUTINE ACSVEL 
c ACAVEL (ALRCRAFT SCTATICNAL VELOCITIES) COMPUTES THE 
Cc RCTATICNAL VELOCITIZS IMPOSZSD ON THE 
C Pie aae per SES SCTATICONAL O2 ATAChaArt CCORDINATE 
e Siseeye (ie alONG THe NOSE, Y OUT THE ALIGHT 4ING, 
c 2 OUTETES BOTTOM CE THE ALBCRAPT. ) 
Cee eR KEKEKRENKE wea EERE RAKE KKK SCAAKSTREAEKREEKERESKRKEKKEKREAKRKEEESCERERK KK KKK 
SOEROUTINE ACRVEL 
COMMON /AEDI/ ESILCT,THEDCT, FRICOT 
COMMON /ALEDOS ESINSH THEN dA, OHINES, PSIGLD, THEOLD, OHIOLD 
COMMON /AESS/ FNCACC et, ICONT 
Commo Anes, UNC VACA AC, JDOTAC, VDO TAC, «DOTAC,2,U,R 
SNGT=THESEW 
ANG2=P HINEA 
PSPHIDOT-STH (ANG1) *£SIDOT 
BECOS ( ANGS) #7 ERECT *CCS (AL G1) = Siz (ANG 2) © £52u07 
B=-SIN (ANG2) *THEDCT+CUS (ANG 1) #COS (AN G2) *PSIDOT 
RETUaN 


CER RAKE ERK KAKA SE ATR EKK ERE AEA TK KR ARRAR HK DENRA AKA REE KKK EEE RRR EAE EK 
© SUBROUT Wc aACACC 


eC Wire eo ume GClLS attics) ©UTS “OGSTHES THE LIMTEAA 
Cc Nepean etols Gesultiic FRO TRANSLarTON CHROUSE 
e ECM pede ROSITOOhS L ACCELERallOuS RESULTING 
fe PROde TA VeSRI°G. aPkc ASPEARS SeLdnx [5S THE Lus 
e GIP ROWCMSSEC 2 CAG CONS CE durlO™’ FOR. AN AITRCRAEZ. 
CER RRR EKREKEKEK EKER E SORIA HER KKK AKA RKARERH SEK KARA AKRKKR RRR EKER AE AKIRA 
SOSLOUTINE ACACC 
ee ee? Kleny bets, £71, 8CLD, 2 NEa, ELL, YISAE, TGLI,cueN ,CELZ, 
COMMON /AEZ3/ AX, AY,Az 
COMMOM /AESS/ FacaCC aN, 4CONT 
Cine Pee tne oC aAC, JDOTAc, VDOTAC, AOGTAC, 2, 2,2 
AX=UDOTAC-VAC*R+nAC #C 
AY=VDOTACHUAC*®R-WACXE 
AZ=aDO TAC-UAC*CHVAC*E 
A=-VAC ¥Q : 
B=«eAC*9 
C2UAC*R 
D=-wAC*D 
E=-UAC *Q 
F=VAC#2 
RETURN 
END 


(CRE KOKA EKE KARE KK AREA KERR EKER EE EKER ARK EK AKER ERR K RK ERE ORK OK 
© SUBROUTINeG ACLATS 


c EGE S TAA RC GAS LEA iAadtcCnS) COMPARES THs 
c RGCSLERALIONS BESUL TAG FRCU & cROPOSED MOVE ALONG A 
‘@ PeGt weal rene een Oar LO tne 2HYSLCelL LISITATICNS CF 
c Paeea een Le Lure eis SSSaGNLIALLY THE 24S OF THE 
c MevivoiseObwuOltGuee cf cHE Thad cCrOalY ACCELERATIONS 
C PMeeebaGers LoAN TALLOAAGLS THEY Ane AUJUSTCD DUSNAARD 
c PVG tT Ue eUN oti as SHS ANGE LHS OF Dace sQUATIGNS 
ce Ge Mer rC MARE ZOUAT=D. 
C PRR RK EEE KE KRKD ETRE ERE KEKE EE PERERA EKER KEKE KR S K EX 
SUBROUTIN:e ACLATS 
COMAON LE Eo7 AA pal pAS 
Ca ony ea CAR ANAM pC LOdAA, Goo, £0, SHOSSL,4L,CO0,CDK,AnEA,DTICH 
GOMMON /AEIO 7 FWE SCC AN, ICONT 
CALL LARRUST 
IF (AN .LIT.~ANMAX.AND. FADACC. LT. LTHMAX) Ga epee OOS 1 8 
€ Ee Gl. ant Ak. OR er @DACC. Giese LHMAX) CALL 22D0C2 
ae ee 
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CBR ERR KERKE SH PKAEK ARH ADEE ERE EER EE ERE RAR KARA EERE RHEE RAK TERT OEE 
SUBROULINE BCCSTB 


C 


eae 
nN (- 
+ f4 
# ty 2 
R tf. a 
“4 . “% 
+i Te fa 
4 3 tQ (% 
a] + “4 CG 
we # n . 
> » te 
ee) 0 
uw # 4 os) ~ oN ~) = Ww oO 
am . it it It iT iT tt 
Otel" O 4 WH 4 4 +4 4 
Hira ‘2 
FACy# 2] —_ — — — —_ — 
-t<d% - — — —_ —_ —_— _— 
nine 3 = = - = - Ee 
Cine a 4 + 3 aly 4 ce) 
4 > . -t et «f mT «f *f 
110} # . >] — — — soe ae aS 
Orive > " Ww n "7 (n WwW) wy a 
oO # +3 WY) a n iy 9 o3 mM co 
enbig fx oO rt -% “ft < +t -t 
(yr | ‘Tt ° ° e ° ° e oO 
m2 # . c E4 t+ FA t4 te e4 tH 
ol TH ‘'s . + +3 J +4 a 5 =] 
CIM 6 S QD e =e Oe C8 © 0 a) 0 O 
HO *# 4 . - - - — - - 
pdfs Ht . fe] OU oT O lA qc OCs OEE —_ 
ae a ie) fica Gaed bet Feet birw Fa et x 
TeQfx1% 7» ON t» say ag an cl i rae *G >< 
mile Oo ry . on O'n On mw On On =) << 
t+ HG kG o< Cory C9 cy 191 CD ww 92 co (3 Py 
te4 . . *G a ft t= c vt -T t+ wld 
Uy) 3 # Oy ie 34 — — 8 — — 6 am @ ae e -A 
fame MS oe 1m 2A eQ ofa a 0 i) £-3 tt 
U} -t# (2) ec te) ey Ors o> > -% 7-5 25% ao t t) 
Ce H fH ef) at) et et ert e-t ern ert ° ©) 
TD H =< Te R ™s ¥ Co e Cc + Cae “ye Cy e Cos U Md <t 
re ML ~ $4 % fos (rl — Ci Van Tes fio ys W at 
4H Ne oCF4 SIE om om om m eo em «ft TI 
™ «Tt - eI et ea." TCs = 09 ™ HY - it can Q = [ty 
HH * ef TEL Kt Gf Chins 2 -{- (3 «t Teas M4 «et = -f 
2" Qo om *& ay <C—"O “moO ot ae tO a 7G) CC? Cry tt — 
mim * e -S sbat-l) ern ered Ina ee a NO “wnt ® aos 
4 Ale & *t4et ened aiu im th me 4 (i tty Lr Ly OG ty (G +f et 
"KAHIB MH! mm OD 8BtU Ono Ono Oro (Vesta) °tO Ore oO *S 
yee tie tems clei e 0f+4 eo 0of4 e@ eF4 eo ot4 eo ot e efF4 ® es 
Orne UPS  etirten tity ><t4 Me clit ~< O >» NO 4 ost 
ty 214 © HAHOH YAQIOH 7AOH YMOHHE AWNORH HAMOHH +f “U ¢ 
ODN SN ON ONS W eID 49 ODO HM POO fH 0PIDC DD HIP CDOO I &€OOO x re 
HOD eis Dbed rated et - er Lt ec i) © <= et ea BE -lfies oo a 
a Pee cia iy pg One OTNSF OHH Orotrte te OOIN # Orne) & He GUD ot oY 
% SER et ote eoee het O(N Heel ON tae O(N MA KtD ONIN flr S ONIN bode ONG UDI e4+U 
#MNON NNN. Ff oD oe STU) 8 IID) eS TU Ol eM LODGE) eT hHOO'N YM NOI 
#4 |S KD KN DK NS DK NF CDK NM © PDK IN 8 COT NS 8 CET em D oO 
RDM ee Me TSIEN em EEH ee OM eT PRM BH em KM ANA MRS 
HOC ODODODDORW Catt HH tO Et CH HO ety ee tH Hee Hitt IH tTOH thio 
XH EUMNAISARME TH MMH ew HH Rm mH ert ot rH OH A Ede 
% ODER ITOsO Oz = Oo” ooz oOo OO 2-49 Ser Ea 
# DOHOQOO OO VO tl ba aly AO by HOO 4 HOO iy QO fi meO QO WNQoanOtamhOOmMmibhia 
*NUNUYYU UU ZU HHHADOHHH> OH HHTEOUHHHD BOHHHD > OHHH RODUUHOOHHMEI 
* ~ 
* 
* 
% 
% >) oO oO oO oO S oO o 
YUU = ™N ry + Way We) ~ oO 


ies 





Ce MARK AREKE SASHES GER E EKA VERE RHR HSE EEK AER VERE ARAR ARERR SAE TR AKA 
C SUBBCUTINE RELUCR 
C BEDUCKR IS CALL PEC¥Y ACLYTS ANC REDUCES THE "NEW 
a WnnCieGereANDSULTINATELY POSITION TO jeT LOADS 
G ON TEE AIRCRAFT WITHIN LIMITS. 
CR SER EKER ER AKEKEK HAE ERE AEE EH KK EK ERK EEK RETR E & MRA REMAKE KEKREK ERK EH 
SUBROUTINE RECUC3 
Gemto7 teas) clei V=lOT ,VelLCC, NUN 24, IT242,U0LD,TNE* ,VPEM2, VOLE, 
WWHEW, @TEME, «OLL 
Seocenn (ieee, AGI,AH1,Azr1,AJ1,au2 
COMMON /AEDOZy VSIALL,V4aX ,VMAL1, VAAL 2,SELT ES, DELTY, CELIZ 
GOdNON /AESS/ AX, AY,AZ 
GOumoy /ABEL 7 THis, ANGRY ,CLYAX,GEE, TO, SUCSSL, «L,CDO,CDK, AREA, IITA 
COMMON SAEES/ ENLACC, AN, ACONT 
Goal /1GC7 X1971,/21,7, ITs, Pea2 
MCONT= 
10 CONTINUE 
VELON=VELCN-DELIY 
A=USTALL+¢2.40ELTV 
Pe mGelONeae. A) Ge TC 20 
ANG -WGOS (hed 7ade) 
AJ251. 1* 302 
ees 
AHI=SIN (ANG) PAZ 
VELON=V1 
20 CONTINUE 
w= 
CALL “VELCS 
CALL AVYDCTS 
CALL S4LCAL 
CALE THRUST 
Meme esa Ax ANC. FWOACC.LE.IHMAX) Gu TO 30 
eo ToC 
30 CONTINUE 
RETURY 
ENC 


CHE RERE REREAD ATOR SRK KARE EEK KERR KE ERE EAR RAB ARKH DS 
C SCSROUTINc SSical 

C ‘SMALL CALL) IS 
e 

C 


A SMALLER VERSION uv? .(BIG CALL) AND 
ED IN THS ITERATIVE LCOBS OF (AIRCRAET LIAITATIONS) 
i EH Se SI IR OP OS PEED Er Peed Pee Pe DP Py PFs eee PETE Ee 


SUBRGUELNE SaALCAL 
CaLL DELVEC 


CaLL GAPENT 
Gali Tt aPV EL 
ALL INRTHA 
CALL ANGLES 
Carl nOTRat 
CALL ACTAM1 
CALL ACTEM2 
Gael ACT RAS 
CaLL aCRVEL 
CALL aCacc 
RETURN 
ENC 
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CFC REE EKARHE AKASH EK AKERS SEK TREK TETHER EEA EKAKEKRAKEKH SAKE RAAT AREER HAYEK AX 


2 SUBROUTINE TARUST 


Picts Ua DD Of (AIRC RAPT Crit oow si LOC GAP UT E 
Cc Baa eov nero oe CCHAARD ACCELERATION BASED Geo THnus f 
Cc Eton aelOnbInG, EOSTNION IN SPACS AND GRAVITY. 
CK REKREKCAKE TR KAEKEEK EAR EKER THEKK GR AKER TS 


RESEKEEKK AKER EKER ES KETS ZH 
SUEROUTINE stants * 


COMeneey Aco meee oe gk soe, tCLO,Y NER ,OELY,YIENP, YOLE,CNEW, CEL 


oF 
CTEMP, ZOLL | 
COMMON OBC / MEG IPErE ae ca LC eo. 1 9N Ea pot ENDS UOLD, Vues; tle4P, 7OLE, 
THNEW OT EME,AOLL 
COMMON JAEDEY ESENEN THSNEN, PHLNEY, PSICLD, THEOLD, 2HIOLD 
COMMON /AEZS/ AX, AY, AZ 
Gato ese eta one LY AX Ges, TC, sH0SSL, 4L,CDO, CDK, AREA, OTEH 
CoOMmoN Jibas7 Fetaee in, ACONT 
ANGSIHSNE% 
THHOD= AX/GEE 
AN=SORT(AI*®*2+AZ**2) /GEE 
SIGMA= (1+CTOH*ZTEMP/ TO) ¥*4. 257 
RHOALT=RACSSL*SIGMA ; 
Gai pe *A Nea 7 (RACALI*¥CLCT** 2) 
DEAG=AR¥ UT (GD0 +CLA*CL **2) /CL) 
PAGe=omuime) + TEACD+D RAG 
RETURN 
END 


CRRA HRERKEKT KEARSE EE ETEK REE KEES REHEARSE KEKE KEE HAR EK 


Sea UCROUTING XSCunse 


nO 
rs 
aa 


eee eeu, FOS OCT LCN Ade SANTIS ETSD Al THE 
c Beers meow LON (ooo) be TEMP LOCATION Geconu es 
Cc mee CURgor. LOGATIC.S (O15). 
eee ain annette. © are RS HESS AE Se RBS KREEKKR ERR EKER eA KT KZ 
SUEROULTI M2 KCENC Ee 
COunOd 7ABC2/ Minit CoA te weLOo, (NGA, DELL,» to caP, YCLE, Gkcd, laLZ, 
WA ee, COLL 
Soi Apes 7 ToLeN ee LOL ,VELCC,N,INaa,U1 oMe,U0OLD,YNEW,VZENO,VOLC, 
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